SOFTWARE SECTION 


MICROCOMPUTER DEVELOPMENT SOFTWARE 


DR. WANG’S PALO ALTO TINY BASIC 


Tiny Basic was first proposed in Dr. Dobb's Journal. 
Li-Chen Wang's version of Palo Alto Tiny Basic 
originally appeared in Issue No. 5, May 1976 of Dr. 
Dobb's Journal. A complete listing was printed, but Dr. 
Wang did the assembly on an IBM computer and he 
defined different mnemonics. In order to assemble 
with an Intel Compatible Assembler a translation of 
most mnemonics had to be performed. 

I had developed my own system, which consists of 
two small p.c. boards, one containing the 8080 CPU, 
4k of 2708 type EROM and IK of RAM. The other 
PCB contained the RS-232 Interface using the Intel 
8251. So I wanted to change the I/O section. 

If you want to change I/O, all routines are contained 
in the OUTC and CHKIO routines. My system uses the 
following configuration: 

2708 EROMS GG00H TO 07FFH 

Ik OF RAM 1000H TO 13FFH 

8251 DATA PORT OFAH 

8251 STATUS PORT 

Command 27H = 2 stop bits parity disabled. 

Instruction 8 bit characters. 

Baud Rate Factor of 04. 

Mode 0CFH = No Hunt Mode. Not (RTS) forced 

Instruction to 0. Receive Enabled Data Ter- 

minal Ready Transmit Enabled. 
Transmitter Ready Status Bit = Bit 0 (01 H) 

Receiver Buffer Ready Status Bit = Bit 1 (02H) 

The program is contained in locations OOOOH to 
0768H. 

In 1 K of RAM 847 bytes are left over for program. 
Tiny Basic does not offer much in terms of functions 
and general mathematical capabilities. But it is great to 
teach programming basics to children (and adults) and 
for games, since it has the RND function. It takes up 
little memory space and executes a lot faster than 
other basics. 

Dr. Wang was very helpful and assisted me all the 
way. Some errors were eliminated. I appreciate his 
help and he deserves a lot of credit for his implemen- 
tation of Tiny Basic. 

See Microcomputer Software Depository Program 
Index for Copies of this program. 

THE TINY BASIC LANGUAGE 

Numbers 

In Tiny Basic, all numbers are integers and must be 
less than or equal to 32767. 
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Variables 

There are 26 variables denoted by letters A through 
Z. There is also a single array @(1). The dimension of 
this array (i.e., the range of value of the index 1 ) is set 
automatically to make use of all the memory space 
that is left unused by the program, (i.e., 0 through 
SIZE/2, see SIZE function below.) 

Functions 

For the time being, there are only 3 functions: 
ABS(X) gives the absolute value of X. 

RND(X) gives a random number between 1 and X 
(inclusive). 

SIZE gives the number of bytes left unused by the 
program. 

Arithmetic and Compare Operators 

/ divide. Note that since we have integers only, 
% = 0 . 

* multiply. 

— subtract. 

+ add. 

> compare if greater than. 

< compare if less than. 

= compare if equal to. Note than to certain ver- 
sions of Basic "LET A=B = 0" means "set both 
A and B to O". To this version of Tiny Basic, it 
means "set A to the result of comparing B with 

O". 

jf compare if not equal to. 

>= compare if greater than or equal to. 

<= compare if less than or equal to. 

+ and / operations result in a value of between 

— 32767 and 32767. All compare operators result in a 
1 if true and a 0 if not true. 

Expressions 

Expressions are formed with numbers, variables, 
and functions with arithmetic and compare operators 
between them. + and — signs can also be used at the 
beginning of an expression. The value of an expression 
is evaluated from left to right, except that * and / are 
always done first, and then + and — , and then com- 
pare operators. Parentheses can also be used to alter 
the order of evaluation. 

Statements 

A Tiny Basic statement consists of a statement 
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number between 1 and 32767 followed by one or 
more commands. Commands in the same statement 
are separated by a semi-colon "GOTO”, "STOP”, 
and "RETURN" commands must be the last command 
in any given statement. 

Program 

A Tiny Basic program consists of one or more 
statements. When a direct command "RUN" is issued, 
the statement with the lowest statement number is 
executed first, then the one with the next lowest 
statement number, etc. However, the "GOTO", 
"GOSUB", "STOP", and "RETURN" commands can 
alter this normal sequence. Within the statement, ex- 
ecution of the commands is from left to right. The "IF" 
command can cause the execution of all the com- 
mands to its right in the same statement to be skipped 
over. 

Commands 

Tiny Basic commands are listed below with 
examples. Remember that commands can be 
concatenated with semi-colons. In order to store the 
statement, you must also have a statement number in 
front of the commands. The statement number and the 
concatenation are not shown in the examples. 

REM or REMARK Command 

REM anything goes 

This line will be ignored by TBI. 

LET Command 

LET A = 234-5*6, A = A/2, X = A- 1 00, 
@(X+9)=A-1 

will set the variable A to the value of the expression 
234—5*6 (i.e., 204), set the variable A (again) to the 
value of the expression A/2 (i.e., 102), set the variable 
X to the value of the expression A- 100 (i.e., 2), and 
then set the variable @(11) to 101 (where 1 1 is the 
value of the expression X+9 and 101 is the value of 
the expression A— 1). 

LET U = A#B, V = (A>B)*X+(A<B)*Y 

will set the variable U to either 1 or 0 depending on 
whether A is not equal to or is equal to B; and set the 
variable V to either X, Y or 0 depending on whether A 
is greater than, less than, or equal to B. 

PRINT Command 

PRINT 

will cause a carriage-return (CR) and a line-feed (LF) on 
the output device. 

PRINT A*3+1, "ABC 123 !@#", ' CBA ' 

will print the value of the expression A*3 + 1 (i.e. ,307), 
the string of characters "ABC 1 23 !@#", and the string 
CBA ", and then a CR-LF. Note that either single or 
double quotes can be used to quote strings, but pairs 
must be matched. 

PRINT A*3 + 1, "ABC 123 !©#", ' CBA ', 


will produce the same output as before, except that 
there is no CR-LF after the last item is printed. This 
enables the program to continue printing on the same 
line with another "PRINT". 

PRINT A, B, #3, C, D, E, #10, F, G 

will print the values of A and B in 6 spaces, the values 
of C, D, and E in 3 spaces, and the values of F and G in 
10 spaces. If there are not enough spaces specified for 
a given value to be printed, the value will be printed 
with enough spaces anyway. 

PRINT 'ABC',*-, 'XXX' 

will print the string "ABC", a CR without a LF, and then 
the string "XXX" (over the ABC) followed by a CR-LF. 

INPUT Command 

INPUT A, B 

When this command is executed. Tiny Basic will print 
"A:" and wait to read in an expression from the input 
device. The variable A will be set to the value of this 
expression. Then "B: " is printed and variable B is set to 
the value of the next expression read from the input 
device. Note that not only numbers, but also 
expressions can be read as input. 

INPUT 'WHAT IS THE WEIGHT'A, "AND SIZE"B 

This is the same as the command above, except the 
prompt "A:" is replaced by "WHAT IS THE WEIGHT:" 
and the prompt "B:" is replaced by "AND SIZE:". 
Again, both single and double quotes can be used as 
long as they are matched. 

INPUT A, 'STRING',*-, "ANOTHER STRING", B 

The strings and the ' 4 -" have the same effect as in 
"PRINT". 

IF Command 

IF A<B LET X = 3; PRINT 'THIS STRING' 

will test the value of the expression A<B. If it is not 
zero (i.e., if it is true), the commands in the rest of this 
statement will be executed. If the value of the 
expression is zero (i.e., if it is not true), the rest of this 
statement will be skipped over and execution 
continues at next statement. Note that the word 
"THEN" is not used. 

GOTO Command 

GOTO 120 

will cause the execution to jump to statement 120. 
Note that GOTO command cannot be followed by a 
semi-colon and other commands. It must be ended 
with a CR. 

GOTO A* 1 0+ B 

will cause the execution to jump to a different 
statement number as computed from the value of the 
expression. 

GOSUB and RETURN Commands 

GOSUB command is similar to GOTO command 


94 INTERFACE AGE 


DECEMBER 1976 




SOFTWARE SECTION 


MICROCOMPUTER DEVELOPMENT SOFTWARE 


except that: a) the current statement number and 
position within the statement is remembered; and b) a 
semi-colon and other commands can follow it in the 
same statement. 

GOSUB 120 

will cause the execution to jump to statement 120. 
GOSUB AMO+B 

will cause the execution to jump to different 
statements as computed from the value of the ex- 
pression A* 10+B. 

RETURN 

A RETURN command must be the last command in 
a statement and followed by a CR. When a RETURN 
command is encountered, it will cause the execution to 
jump back to the command following the most recent 
GOSUB command. 

GOSUB can be nested. The depth of nesting is 
limited only by the stack space. 

LIST 

will print out all the statements in numerical order. 
LIST 120 

will print out all the statements in numerical order 
120. 

NEW 

will delete all the statements. 

Stopping the Execution 

The execution of program or listing of program can 
be stopped by the Control-C key on the input device. 

Abbreviation and blanks 

You may use blanks freely, except that numbers, 
command key words, and function names can not have 
embedded blanks. 

You can truncate all command key words and func- 
tion names and follow each by a period. "P.", "PR.", 
"PRI.", and "PRIN." all stand for "PRINT." Also the 
word LET in LET command can be omitted. The 
"shortest" abbreviation for all the key words are as 
follows. 

A. = ABS 
I F = I F 
N. = NEXT 

R. = RND 

S. = STOP 
lmplied = LET 

Control of Output Device 

The Control-0 key on the input device can be used 
to turn the output device ON and OFF. This is useful 
when you want to read in a program punched on paper 
tape. 

To produce such a paper tape, type "LIST" without 
CR. Turn on the paper tape punch and type a few 
Control-Shift- P's and then a CR. When listing is 
finished, type more Control-Shift- P's and turn off the 
punch. 

To read back such a paper tape, type "NEW," CR, 
and Control-0, then turn on the paper tape reader. 


When the paper tape is finished, turn it off and type a 
Control-0 again. 

Control-Shift-P's and turn off the punch. 

To read back such a paper tape, type "NEW," CR, 
and Control-?, then turn on the paper tape reader. 
When the paper tape is finished, turn it off and type a 
Control-0, then turn on the paper tape reader. When 
the paper tape is finished, turn it off and type a Control- 
0 again. 

Error Report 

There are only three error conditions in TINY BASIC. 
The statement with the error is printed out with a 
question mark inserted at the point where the error is 
detected. 

(1) WFIAT? means it does not understand you. Ex- 
ample: 

WHAT? 210 P7TINT "THIS" where PRINT is mistyped 

WHAT? 260 LET A = B + 3, C = (3+4), X=4 

(2) FIOW? means it understands you but does not 
know how to do it. 

HOW? 310LET A= B * C? + 2 where B # C is larger than 32767 

HOW? 380 GOTO 412? where 412 dose not exist 

(3) SORRY means it understands you and knows 
how to do it but there is not enough memory to do it. 

Error Corrections 

If you notice an error in typing before you hit the CR, 
you can delete the last character by the Rub-Out key or 
delete the entire line by the Alt-Mode key. Tiny basic 
will echo a back-slash for each Rub-Out. Echo for Alt- 
Mode consists of a LF, a CR, and an up-arrow. 

To correct a statement, you can retype the state- 
ment number and the correct commands. Tiny Basic 
will replace the old statement with the new one. 

To delete a statement, type the statement number 
and a CR only. 

Verify the corrections by "LIST nnnn" and hit the 
Control-C key while the line is being printed. 

FOR and NEXT Commands 

FOR X=A+1 TO 3 * B STEP C-1 

The variable X is set to the value of the expression 
A+1. The values of the expressions (not the expres- 
sions themselves) 3*B and C-1 are remembered. The 
name of the variable X, the statement number and the 
position of this command within the statement are al- 
so remembered. Execution then continues the normal 
way until a NEXT command is encountered. 

The STEP can be positive, negative or even zero. 
The word STEP and the expression following it can be 
omitted if the desired STEP is -FI. 

NEXT X 

The name of the variable (X) is checked with that of 
the most recent FOR command. If they do not agree, 
that FOR is terminated and the next recent FOR is 
checked, etc. When a match is found, this variable will 
be set to its current value plus the value of the STEP 
expression saved by the FOR command. The updated 


F.= FOR 
IN. = INPUT 
P. = PRINT 
R.= RUN 
TO = TO 


GOS. = GOSUB G. = GOTO 
L. = LIST N. = NEW 

REM = REMARK R. = RETURN 
S. = SIZE S. = STEP 
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value is then compared with the value of the TO 
expression also saved by the FOR command. If this is 
within the limit, execution will jump back to the com- 
mand following the FOR command. If this is outside 
the limit, execution continues following the NEXT com- 
mand itself. 

FOR can be nested. The depth of nesting is limited 
only by the stack space. If a new FOR command with 
the same control variable as that of an old FOR com- 
mand is encountered, the old FOR will be terminated 


001F 57 


0020 7C 

0021 BR 

0022 C0 

0023 7D 

0024 BB 

0025 C9 

0026 414E 


MOV fl, H 
CMP D 
RNZ 

MOV A, L 
CMP E 
RET 

DB AN 


; 444 COMP OR RST 4 444 
; COMPARE HL WITH DE 
; RETURN CORRECT C RND 
; Z FLAGS 

;BUT OLD R IS LOST 


0028 1R SSI : 

0029 FE20 
002B C0 
002C 13 
002D C32800 


LDRX D 
CPI 20H 
RNZ 
I NX D 
JMP SSI 


; +44 I GNBLK/RST 5 444 
; IGNORE BLANKS 
; IN TEXT < WHERE DE-» 
; RND RETURN THE FIRST 
; NON-BLRNK CHAR. IN R 


0030 Fl 

0031 CDB304 
0034 C3C604 
0037 47 


POP PSW ;*** FINISH/RST 6 +44 

CALL FIN ; CHECK END OF COMMAND 

JMP QWHRT ; PRINT "WHAT?" IF WRONG 
DB G' 


automatically. 

STOP Command 

STOP 

This command stops the execution of the program 
and returns control to direct commands from the input 
device. It can appear many times in a program but 
must be the last command in any given statement, i.e., 
it cannot be followed by semi-colon and other com- 
mands. 

Direct Commands 

As defined earlier, a statement consists of a state- 
ment number followed by commands. If the state- 
ment number is missing, or if it is 0, the commands will 
be executed after you have typed the CR. All the com- 
mands described above can be used as direct com- 
mands. There are three more commands that can be 
used as direct command but not as part of a state- 
ment: 


0038 EF 

0039 D640 
003B D8 
003C C25800 
003F 13 

0040 CD1R04 

0043 29 

0044 DR9F00 

0047 D5 

0048 EB 

0049 CD5904 
004C E7 
004D DRF404 

0050 216613 
0053 CD7C04 

0056 D1 

0057 C9 

0058 FE1B TV1 : 

005R 3F 

005B D8 
005C 13 
005D 216613 

0060 07 

0061 85 

0062 6F 

0063 3E00 

0065 8C 

0066 67 

0067 C9 


RST 
SUI 
RC 
JNZ 
I NX I 
CALL I 
DAD I 
JC 

PUSH 

XCHG 

CALL 

RST 

JC 

LXI 

CALL 

PGP 

RET 

CPI 

CMC 

RC 

I NX 

LXI 

RLC 

ADD 

MOV 

MV I 

ADC 

MOV 

RET 


QHOW 

D 


ASORRV 
H, VARBGN 
SUBDE 


*** TSTV OR RST 7 *** 
TEST VARIABLES 
C : NOT A VARIABLE 
NOT "®" ARRAY 
IT IS THE "®" ARRAY 
® SHOULD BE FOLLOWED 
fev < EXPR > AS ITS INDEX 
IS INDEX TOO BIG? 

WILL IT OVERWRITE 
TEXT? 

FIND SIZE OF FREE 
AND CHECK THAT 
IF SO, SAY "SORRY" 

IF NOT, GET ADDRESS 
OF ®<EXPR> AND PUT IT 
IN HL 

C FLAG IS CLEARED 
NOT 0, IS IT A TO Z? 

IF NOT RETURN C FLAG 

IF A THROUGH Z 
COMPUTE ADDRESS OF 
THAT VARIABLE 
AND RETURN IT IN HL 
WITH C FLAG CLEARED 


0068 23 TCI : 

0069 CA7300 
006C C5 
006D 4E 
006E 0600 

0070 09 

0071 Cl 

0072 IB 

0073 13 TC2 . 

0074 23 

0075 E3 

0076 C9 


I NX H 
JZ TC2 
PUSH B 
MOV C, M 
MV I B, 0 
DAD B 
POP B 
DCX D 
I NX D 
I NX H 
XTHL 
RET 


TSTC XCH HL, <SP> *44 TSTC OR RST 1 *** 
IGNBLK THIS IS AT LOC. 8 

CMP M AND THEN JMP HERE 

, COMPARE THE BYTE THAT 
; FOLLOWS THE RST INST 
, WITH THE TEXT <DE-» 

-• IF NOT =, ADD THE 2ND 
, BYTE THAT FOLLOWS THE 
, RST TO THE OLD PC 
, I E , DO A RELATIVE 
, JUMP IF NOT = 

IF =, SKIP THOSE BYTES 
• AND CONTINUE 


RUN 

will start to execute the program starting at the lowest 
statement number. 

See Microcomputer Software Depository Program 
Index for copies of this program. 
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444 ZERO PAGE SUBROUTINES 444 

THE 8080 INSTRUCTION SET LETS YOU HAVE 8 ROUTINES IN LOW 
MEMORY THAT MAY BE CALLED BY RST N, N BEING 0 THROUGH 7. 
THIS IS A ONE BYTE INSTRUCTION AND HAS THE SAME POWER AS 
THE THREE BYTE INSTRUCTION CALL LLHH. TINY BASIC WILL 
USE RST 0 AS START AND RST 1 THROUGH RST 7 FOR 
THE SEVEN MOST FREQUENTLY USED SUBROUTINES. 

TWO OTHER SUBROUTINES < CRLF AND TSTNUM) ARE ALSO IN THIS 
SECTION. THEY CAN BE REACHED ONLY BY 3-BYTE CALLS. 


0000 

0000 310014 
0003 3EFF 
0005 C34206 


DWA MACRO WHERE 

DB < WHERE SHR 8) +128 

DB WHERE AND 0FFH 

ENDM 
ORG 0H 

START : 

LXI SP, STACK .; 444 COLD START 444 
MV I A, 0FFH 
JMP INIT 


0077 210000 
007A 44 
007B EF 
007C FE30 
007E D8 
007F FE3A 


0081 D0 

0082 3EF0 

0084 A4 

0085 C29F00 

0088 04 

0089 C5 
008A 44 
008B 4D 


008D 29 
008E 09 
008F 29 

0090 1A 

0091 13 

0092 E60F 

0094 85 

0095 6F 

0096 3E00 

0098 8C 

0099 67 
009A Cl 
009B 1A 
009C F27C00 
009F D5 
00A0 11A600 
00A3 C3CA04 


TSTNIJM . 

LXI H, 0 
MOV B, H 
RST 5 

TNI: CPI 30H 

RC 

CPI 3AH 
RNC 

MV I A, 0F0H 
ANA H 
JNZ QHOW 
I NR B 
PUSH B 
MOV B, H 
MOV C, L 
DAD H 
DAD H 
DAD E: 

DAD H 
LDAX D 
I NX D 
AN I 0FH 
ADD L 
MOV L, A 
MV I A, 0 
ADC H 
MOV H, A 
POP B 
LDAX D 
JP TNI 
QHOW : PUSH D 

AHOW: LXI D, HOW 

JMP ERROR 


00A6 484F573F HOW: DB 
0OAA 0D DB 
00AB 4F4B OK: DB 
O0AD 0D DB 
00AE 57484154 WHAT: DB 
00B2 3F 

00B3 ©D DB 
00B4 534F5252 SORRY. DB 
00B8 59 

00B9 0D DB 


HOW? 

CR 

'OK-' 

CR 

WHAT? 

CR 

SORRY ' 
CR 


, 444 TSTNUM 444 
, TEST IF THE TEXT IS 
,A NUMBER 

, IF NOT, RETURN O IN 
, B AND HL 

; IF NUMBERS, CONVERT 
TO BINARY IN HL AND 
; SET A TO # OF DIGITS 
, IF H>255, THERE IS NO 
; ROOM FOR NEXT DIGIT 
,B COUNTS # OF DIGITS 

• HL=104HL+ NEW D I G I T > 

■ WHERE 104 I S DONE BY 
, SHIFT AND ADD 


, AND • . DIGIT) IS FROM 
STRIPPING THE ASCII 
; CODE 


, DO THIS DIGIT AFTER 
; DIGIT S SAYS OVERFLOW 
, 444 ERROR: "HOW?" 444 


4444444444444444444444444444444444444444444444444444444444444 


+44 MAIN 444 

; THIS IS THE MAIN LOOP THAT COLLECTS THE TINY BASIC PROGRAM 
, AND STORES IT IN THE MEMORY 


0008 E3 

0009 EF 


XTHL 
RST 5 
CMP M 
JMP TCI 


444 TSTC OR RST 1 444 
IGNORE BLANKS AND 
TEST CHARACTER 
REST OF THIS IS AT TCI 


000E 3E0D 


MV I A, CR 


0010 F5 

0011 300010 

0014 B7 

0015 C36C06 


PUSH PSW 
LDA OCSW 
ORA A 
JMP 0C2 


, 444 OUTC OR RST 2 444 
PRINT CHARACTER ONLY 
; IF OCSW SWITCH IS ON 
; REST OF THIS IS AT 0C2 


0018 CD7103 
001B E5 
001C C32D03 


CALL EXPR2 ; 444 EXPR OR RST 3 444 

PUSH H , EVALUATE AN EXPRESION 

JMP EXPR1 , REST OF IT IS AT EXPR1 


AT START, IT PRINTS OUT " <CR)OK<CR) ", AND INITIALIZES THE 
STACK AND SOME OTHER INTERNAL VARIABLES. THEN IT PROMPTS 
and READS A LINE. IF THE LINE STARTS WITH A NON-ZERO 
NUMBER, THIS NUMBER IS THE LINE NUMBER. THE LINE NUMBER 
<IN 16 BIT BINARY) AND THE REST OF THE LINE < INCLINING CR) 

IS STORED IN THE MEMORY. IF A LINE WITH THE SAME LINE 
NUMBER IS ALREADY THERE, IT IS REPLACED BY THE NEW ONE. IF 
THE REST OF THE LINE CONSISTS OF A CR ONLY, IT IS NOT STORED 
AND ANY EXISTING LINE WITH THE SAME LINE NUMBER IS DELETED. 

AFTER A LINE IS INSERTED, REPLACED, OR DELETED, THE PROGRAM 
LOOPS BACK AND ASKS FOR ANOTHER LINE. THIS LOOP WILL BE 
TERMINATED WHEN IT READS A LINE WITH ZERO OR NO LINE 
NUMBER; AND CONTROL IS TRANSFERRED TO "DIRECT". 
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TINY BASIC PROGRAM SAVE AREA STARTS AT THE MEMORY LOCATION 
LHBELED "TXTBGN" AND ENDS AT " TXTEND". WE ALWAYS FILL THIS 
AREH STARTING AT "TXTBGN".. THE UNFILLED PORTION IS POINTED 
BY THE CONTENT OF A MEMORY LOCATION LABELED "TXTUNF". 

THE MEMORY LOCATION "CURRNT" POINTS TO THE LINE NUMBER 
THAT IS CURRENTLY BEING INTERPRETED. WHILE WE ARE IN 
THIS LOOP OR WHILE WE ARE INTERPRETING A DIRECT COMMAND 
<SEE NEXT SECT I ON >, "CURRNT" SHOULD POINT TO A 0. 

RSTART LODI SP, STACK 


00BA 210014 
00BD CD0E00 
00C0 11AB00 
00C2 97 
00C4 CD6005 

00C7 21CE00 
00CA 220110 
00CD 210000 
00D0 220910 
00D2 220210 
00DS 3E2E 
00D8 CDFA04 
00DB D5 
00DC 119D12 
00DF CD7700 
00E2 EF 
00E3 7C 
00E4 B5 
00E5 Cl 
00E6 CA3807 
00E9 IB 
00EA 7C 
00EB 12 
00EC IB 
00ED 7D 
00EE 12 
00EF C5 
00F0 D5 
00F1 79 
00F 2 92 
00F2 F5 
00F4 CD2805 
00F7 D5 
00F8 C20B01 
00FB D5 
00FC CDS 4 05 

00FF Cl 
0100 2A1510 
0103 CDE505 
010b 60 

0107 69 

0108 221510 
010B Cl 
010C 2A1510 
010F FI 

0110 E5 

0111 FE02 
0113 CABA00 

0116 85 

0117 6F 

0118 3E00 
011A SC 
011B 67 
011C 116612 

011F E7 
0120 D2F304 
0123 221510 

0126 D1 

0127 CDEE05 
012A D1 
012B El 
012C CDE505 
012F C3D600 


LX I SP, STACK 

’CALL CRLF ; AND JUMP TO HERE 
LX I D, OK ; DE-DSTRING 

SUB A ,• R=0 

CALL PRTSTG ; PRINT STRING UNTIL CR 


; LITERAL 0 
.; CURRNT ->L I NE # 


, PROMPT > ■ AND 
.; READ A LINE 
> DE->END OF LINE 
, DE->BEG INNING OF LINE 
> TEST IF IT IS A NUMBER 

, HL=VALUE OF THE # OR 
.• 0 IF NO # WAS FOUND 
;BC->END OF LINE 

, BACKUP DE AND SAVE 
; VALUE OF LINE # THERE 


; BC, DE-2BEG I N, END 


• A=# OF BYTES IN LINE 
; FIND THIS LINE IN SAVE 
i AREA, DE-DSAVE AREA 
.: NZ : NOT FOUND, I NSERT 
, Z : FOUND, DELETE I T 
, FIND NEXT LINE 

DE-DNEXT LINE 
i BC— >LINE TO BE DELETED 
.; HL-DUNF I LLED SAVE AREA 
; MOVE UP TO DELETE 
; TXTUNF-3UNFILLED AREA 

; UPDATE 

.: GET READY TO INSERT 
, BUT FIRST CHECK IF 
j THE LENGTH OF NEW LINE 
.; IS 2 CLINE # AND CR> 

; THEN DO NOT INSERT 
MUST CLEAR THE STACK 
■ COMPUTE NEW TXTUNF 


, HL-2NEW UNFILLED AREA 
i CHECK TO SEE IF THERE 
; IS ENOUGH SPACE 
; SORRY, NO ROOM FOR IT 
; OK, UPDATE TXTUNF 
> DE-DOLD UNFILLED AREA 

;DE->BEGIN, HL-DEND 


POP B 
LHLD TXTUNF 
CALL MVUP 
MOV H, B 
MOV L, C 
SHLD TXTUNF 
POP B 
LHLD TXTUNF 
POP F'SW 
PUSH H 
CPI 3 
JZ RSTART 
ADD L 
MOV L, A 
MV I A, 0 
ADC H 
MOV H, A 
LX I D, TXTENI 

RST 4 
JNC QSORRY 
SHLD TXTUNF 
POP D 
CALL MVDOWN 
POP D 
POP H 
CALL MVUP 
JMP ST3 


WHAT FOLLOWS IS THE CODE TO EXECUTE DIRECT AND STATEMENT 
COMMANDS CONTROL IS TRANSFERED TO THESE POINTS VIA THE 
COMMAND TABLE LOOKUP CODE OF 'DIRECT-' AND -'EXEC-' IN LAST 
SECTION. AFTER THE COMMAND IS EXECUTED, CONTROL IS 
TRANSFERED TO OTHER SECTIONS AS FOLLOWS: 

FOR 'LIST', NEW', AND 'STOP' : GO BACK TO RSTART' 

FOR RUN' : GO EXECUTE THE FIRST STORED LINE IF ANY; ELSE 
GO BACK TO RSTART' 

FOR 'GOTO' AND 'GOSUB': GO EXECUTE THE TARGET LINE. 

FOR 'RETURN' AND NEXT' : GO BACK TO SAVED RETURN LINE. 

FOR ALL OTHERS: IF CURRNT' -> 0, GO TO 'RSTART', ELSE 
GO EXECUTE NEXT COMMAND. CTHIS IS DONE IN FINISH '. ) 

+ **+++*******!t:***+*******it:*:***:*****:t:*******-.+::*>+:>*<****:>t<,t<*!+:!+;>t<*:**:*: 

*+* NEW *** STOP *** RUN <& FRIENDS) *** & GOTO *** 

'NEWCCR)' SETS 'TXTUNF' TO POINT TO 'TXTBGN' 

'STOPCCR)' GOES BACK TO RSTART' 

'RUN OCR) FINDS THE FIRST STORED LINE, STORE ITS ADDRESS CIN 
'CURRNT'), AND START EXECUTE IT NOTE THAT ONLY THOSE 
COMMANDS IN TAB2 ARE LEGAL FOR STORED PROGRAM. 

THERE ARE 2 MORE ENTRIES IN RUN : 

RUNNXL' FINDS NEXT LINE, STORES ITS ADDR. AND EXECUTES IT. 
RUNTSL' STORES THE ADDRESS OF THIS LINE AND EXECUTES IT. 
RUNSML CONTINUES THE EXECUTION ON SAME LINE 

GOTO EXPRCCR)' EVALUATES THE EXPRESSION, FIND THE TARGET 
LINE, AND JUMP TO 'RUNTSL' TO DO IT. 

MEW: CALL ENDCHK .; *** NEWCCR) **+ 

LX I H, TXTBGN 
SHLD TXTUNF 

STOP: CALL ENDCHK ; *** STOPCCR) +*+ 

JMP RSTART 

SUN: CALL ENDCHK , *** RUNCCR) *** 

LX I D, TXTBGN ; FIRST SAVED LINE 


LX I H, 0 
CALL FNDLP 
JC RSTART 


XCHG 

SHLD CURRNT 


i *** RUNNXL *** 

FIND WHATEVER LINE # 

; C : PASSED TXTUNF, QUIT 


i *** RUNTSL *** 

, SET ' CURRNT '->L I NE < 


} BUMP PASS LINE # 


0157 CD8406 
015A 21BD06 
015D C23B07 


0161 D5 

0162 C DC 204 
0165 CD3S05 
0168 C2A000 
016B FI 

01 6 C C35001 


CALL CHKIO ; *** RUNSML *** 

LX I H, TAB2-1 , FIND COMMAND IN TAB2 
JMP EXEC } AND EXECUTE I T 


PUSH D 
CALL ENDCHK 
CALL FNDLN 
JNZ AHOW 
POP PSW 
JMP RUNTSL 


; SAVE FOR ERROR ROUTINE 
, MUST FIND A CR 
, FIND THE TARGET LINE 
.; NO SUCH LINE # 
i CLEAR THE "PUSH DE" 

, GO DO IT 


*** LIST *** & F’RINT *** 

LIST HAS TWO FORMS: 

'LI ST C CR ) ' LISTS ALL SAVED LINES 
LIST # C CR ) ' START LIST AT THIS LINE # 

YOU CAN STOP THE LISTING BY CONTROL C KEY 

PRINT COMMAND IS PRINT .... ; OR PRINT . . . . CCR)' 

WHERE '....' IS A LIST OF EXPRESIONS, FORMATS, BACK- 
ARROWS, AND STRINGS. THESE ITEMS ARE SEPERATED BY COMMAS. 

A FORMAT IS A FOUND SIGN FOLLOWED BY A NUMBER. IT CONTROLS 
THE NUMBER OF SPACES THE VALUE OF A EXPRESION IS GOING TO 
BE PRINTED. IT STAYS EFFECTIVE FOR THE REST OF THE PRINT 
COMMAND UNLESS CHANGED BY ANOTHER FORMAT. IF NO FORMAT IS 
SPECIFIED, 6 POSITIONS WILL BE USED. 


A STRING IS QUOTED IN A PAIR OF SINGLE QUOTES OR A PAIR OF 
DOUBLE QUOTES. 

A BACK-ARROW MEANS GENERATE A CCR) WITHOUT CLF) 

A C CRLF ) IS GENERATED AFTER THE ENTIRE LIST HAS BEEN 
PRINTED OR IF THE LIST IS A NULL LIST. HOWEVER IF THE LIST 
ENDED WITH A COMMA, NO CCRLF) IS GENERATED. 


016F CD7700 
0172 CDC204 
0175 CD3805 
0178 DABA00 
017B CDD205 
017E CDS406 
0181 CD4005 
0184 C27801 

0187 0E06 
0189 CF 
018A 2B 
018B 06 
018C CD0E00 
018F C35701 
0192 CF 
0192 0D 

0194 06 

0195 CD0E00 
0198 C34701 
019B CF 
019C 22 
019D 05 
019E DF 
019F 4D 
01A0 C2A901 
01A2 CD6C05 
01A6 C3B601 
01A9 CF 
01AA 2C 
01AB 06 
01AC CDB304 
01AF C39B01 
01B2 CD0E00 
01B5 F7 
01B6 DF 
01B7 C5 
01B8 CD9205 
01BB Cl 
01BC C2A901 


CALL TSTNUM 
CALL ENDCHK 
CALL FNDLN 
JC RSTART 
CALL F'RTLN 
CALL CHKIO 
CALL FNDLP 
JMP LSI 


PRINT. MV I 
RST 


.; TEST IF THERE IS A # 

.• IF NO # WE GET A 0 
> FIND THIS OR NEXT LINE 
, C : PASSED TXTUNF 
; PRINT THE LINE 
} STOP IF HIT CONTROL-C 
: FIND NEXT LINE 
, AND LOOP BACK 

,' C = # OF SPACES 
; IF NULL LIST & "j " 


GIVE CR-LF AND 
CONTINUE SAME LINE 
IF NULL LIST OCR) 


ALSO GIVE CR-LF AND 
GO TO NEXT LINE 
ELSE IS IT FORMAT? 


.■ YES, EVALUATE EXPR. 

.• AND SAVE IT IN C 
, LOOK FOR MORE TO PRINT 
:• OR IS IT A STRING? 

; IF NOT, MUST BE EXPR. 

• IF ", ", GO FIND NEXT 


; IN THE LIST. 

■ LIST CONTINUES 
•LI ST ENDS 

i EVALUATE THE EXPR 


; PRINT THE VALUE 


01BF CD1906 
01C2 DF 
01C3 D5 
01C4 CD3805 
01C7 C2A000 
01CA 2A0110 
01CD E5 
01CE 2A0310 
01D1 E5 
01D2 210000 
01D5 220910 
01D8 39 
01D9 220310 
01DC C35001 


01E2 2A0310 
01E5 7C 
01E6 B5 
01E7 CAC604 
01EA F9 
01EB El 
01EC 220310 
01EF El 
01F0 220110 
01F3 D1 
01F4 CDFD05 
01F7 F7 




'GOSUB EXPR; ' OR 'GOSUB EXPR <CR)' IS LIKE THE 'GOTO' 
COMMAND, EXCEPT THAT THE CURRENT TEXT POINTER, STACK POINTER 
ETC. ARE SAVE SO THAT EXECUTION CAN BE CONTINUED AFTER THE 
SUBROUTINE 'RETURN'. IN ORDER THAT 'GOSUB' CAN BE NESTED 
CAND EVEN RECURSIVE), THE SAVE AREA MUST BE STACKED. 

THE STACK POINTER IS SAVED IN 'STKGOS'. THE OLD 'STKGOS' IS 
SAVED IN THE STACK. IF WE ARE IN THE MAIN ROUTINE, 'STKGOS' 
IS ZERO CTHIS WAS DONE BY THE "MAIN" SECTION OF THE CODE), 
BUT WE STILL SAVE IT AS A FLAG FOR NO FURTHER 'RETURN'S. 

RETURN CCR)' UNDOS EVERYTHING THAT GOSUB DID, AND THUS 
RETURN THE EXCUT I ON TO THE COMMAND AFTER THE MOST RECENT 
'GOSUB'. IF STKGOS' IS ZERO, IT INDICATES THAT WE 
NEVER HAD A 'GOSUB AND IS THUS AN ERROR. 

DSUB : CALL PUSHA > SAVE THE CURRENT "FOR" 

RST 3 ; PARAMETERS 

PUSH D ; AND TEXT POINTER 

CALL FNDLN i FIND THE TARGET LINE 

JNZ AHOW ; NOT THERE. SAY "HOW?" 

LHLD CURRNT ; FOUND IT, SAVE OLD 

PUSH H .; CURRNT' OLD 'STKGOS 


: AND LOAD NEW ONES 


.; THEN RUN THAT LINE 

; THERE MUST BE A CR 
OLD STACK POINTER 
;0 MEANS NOT EXIST 

, SO, WE SAY. "WHAT?" 

.; ELSE, RESTORE IT 

, AND THE OLD 'STKGOS' 

, AND THE OLD 'CURRNT' 
; OLD TEXT POINTER 
; OLD "FOR" PARAMETERS 
.; AND WE ARE BACK HOME 
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*++ FOR *** & NEXT *** 

FOR' HAS TWO FORMS: 

• FOR VAR=EXP1 TO EXP2 STEP EXP3 AND 'FOR VAR=EXP1 TO EXP2 " 
THE SECOND FORM MEANS THE SAME THING AS THE FIRST FORM WITH 
EXP2=1. <1. E. , WITH A STEP OF +1. ) 

TBI WILL FIND THE VARIABLE VAR. AND SET ITS VALUE TO THE 
CURRENT VALUE OF EXP1. IT ALSO EVALUATES EXP2 AND EXP2 
AND SAVE ALL THESE TOGETHER WITH THE TEXT POINTER ETC. IN 
THE "FOR SAVE AREA, WHICH CONSISTS OF "LOPVAR", "LOP INC", 

" LOPLMT " , ' LOPLN " , AND "LOPPT IF THERE IS ALREADY SOME- 

THING IN THE SAVE AREA (THIS IS INDICATED BV A NON-ZERO 
LOPVAR" ?, THEN THE OLD SAVE AREA IS SAVED IN THE STACK 
BEFORE THE NEW ONE OVERWRITES IT. 

TBI WILL THEN DIG IN THE STACK AND FIND OUT IF THIS SAME 
VARIABLE WAS USED IN ANOTHER CURRENTLY ACTIVE FOR' LOOP. 

IF THAT IS THE CASE, THEN THE OLD FOR' LOOP IS DEACTIVATED. 
< PURGED FROM THE STACK. . ) 


* * :+: Jf +: :+t * + jf : * * if: + Nf: ♦ :+t i+t ♦ ♦ * * * ♦ * ♦ * Jf; * ♦ * ♦ + * + ♦ Jf: ♦ * * <* * * * * * * 

+** REM *** IF *** INPUT *** & LET DEFLT? *** 

REM' CAN BE FOLLOWED BV ANYTHING AND IS IGNORED BV TBI. 

TBI TREATS IT LIKE AN IF' WITH A FALSE CONDITION. 

IF' IS FOLLOWED BY AN EXPR. AS A CONDITION AND ONE OR MORE 
COMMANDS < INCLUDING OTHER "IF'S? SEPERATED BY SEMI-COLONS. 
NOTE THAT THE WORD THEN IS NOT USED. TBI EVALUATES THE 
EXPR. IF IT IS NON-ZERO, EXECUTION CONTINUES. IF THE 
EXPR. IS ZERO, THE COMMANDS THAT FOLLOWS ARE IGNORED AND 
EXECUTION CONTINUES AT THE NEXT LINE. 

INPUT COMMAND IS LIKE THE PRINT COMMAND, AND IS FOLLOWED 
BV A LIST OF ITEMS. IF THE ITEM IS A STRING IN SINGLE OR 
DOUBLE QUOTES, OR IS A BACK-ARROW, IT HAS THE SAME EFFECT AS 
IN PRINT'. IF AN ITEM IS A VARIABLE, THIS VARIABLE NAME IS 
PRINTED OUT FOLLOWED BV A COLON. THEN TBI WAITS FOR AN 
EXPR. TO BE TYPED IN. THE VARIABLE IS THEN SET TO THE 
VALUE OF THIS EXPR. IF THE VARIABLE IS PROCEDED BV A STRING 


"NEXT VAR SERVES AS THE LOGICAL (NOT NECESSAR I LLV PHYSICAL? 
END OF THE "FOR" LOOP. THE CONTROL VARIABLE VAR. IS CHECKED 
WITH THE "LOPVAR IF THEY ARE NOT THE SAME, TBI DIGS IN 
THE STACK TO FIND THE RIGHT ONE AND PURGES ALL THOSE THAT 
DID NOT MATCH. EITHER WAV, TBI THEN ADDS THE "STEP" TO 
THAT VARIABLE AND CHECK THE RESULT WITH THE LIMIT IF IT 
IS WITHIN THE LIMIT, CONTROL LOOPS BACK TO THE COMMAND 
FOLLOWING THE "FOR" IF OUTSIDE THE LIMIT, THE SAVE ARER 
IS PURGED AND EXECUTION CONTINUES. 


01 F 8 CD1906 
01FB CDA004 
01FE 2B 
01FF 220910 
0202 211207 
0205 C23B07 

0208 DF 

0209 220D10 
O20C 211907 
020F C23B07 
0212 DF 
0212 C31902 
0216 210100 
0219 220B10 
02 1C 2A0110 
02 IF 220F10 
0222 EB 
0222 221110 
0226 010A00 


0224 B6 
0235 CR5202 

0228 7E 

0229 2B 
022A BA 
022B C 2 2 102 
022E 7E 
023F BB 
0240 C 23 102 
0242 EB 
0244 210000 

0247 39 

0248 44 

0249 4D 
024A 210A00 
024D 19 

024 E CDEE05 

0251 F9 

0252 2A1110 


0257 FF 

0258 DAC604 
025B 220510 
025E D5 
025F EB 
0260 2A0910 
0262 7C 

0264 B5 

0265 CAC704 

0268 E7 

0269 CA7602 
026C D1 
026D CDFD05 

0270 2A0510 
0272 C25E02 

0276 5E 

0277 23 

0278 56 

0279 2A0B10 
027C E5 
027D 7C 


0281 FA8802 

0284 AC 

0285 FAAA02 

0288 EB 

0289 2A0910 
02SC 73 
028D 23 
028E 72 
028F 2A0D1O 
0292 FI 
0292 B7 
0294 F29802 

0297 EB 

0298 CD9804 
029B D1 


CALL PUSHA 
CALL SETVAL 
DCX H 
SHLD LOPVAR 
LX I H, TAB5-1 
JMP EXEC 
RST 3 
SHLD LOPLMT 
LX I H, TAB6-1 
JMP EXEC 
RST 2 
JMP FR4 
LX I H, 1H 
SHLD LOP INC 
LHLD CURRNT 
SHLD LOPLN 
XCHG 

SHLD LOPPT 
LX I B, 0AH 
LHLD LOPVAR 
XCHG 

MOV H, B 
MOV L, B 


XCHG 

LX I H, 0H 


MOV C, L 
LX I H, 0AH 
DAD D 
CALL MVDOWN 
SPHL 

LHLD LOPPT 

XCHG 

RST 6 

RST 7 
JC QWHAT 
SHLD VARNXT 
PUSH D 
XCHG 

LHLD LOPVAR 
MOV A, H 


POP D 
CALL POPA 
LHLD VARNXT 
JMP NX0 
MOV E, M 
I NX H 
MOV D, M 
LHLD LOP INC 
PUSH H 
MOV A, H 


JM NX5 
XCHG 

LHLD LOPVAR 
MOV M, E 
I NX H 
MOV M, D 
LHLD LOPLMT 
POP PSW 
ORA A 
JP NX1 
XCHG 

CALL CKHLDE 
POP D 
■JC NX 2 

LHLD LOPLN 
SHLD CURRNT 
LHLD LOPPT 
XCHG 
RST 6 
POP H 
POP D 
CALL POPA 
RST 6 


SAVE THE OLD SAVE AREA 
SET THE CONTROL VAR. 

HL IS ITS ADDRESS 
SAVE THAT 

USE "EXEC" TO LOOK 
FOR THE WORD "TO 
EVALUATE THE LIMIT 
SAVE THAT 

USE EXEC TO LOOK 
, FOR THE WORD "STEP" 

, FOUND I T, GET STEP 

■ NOT FOUND, SET TO 1 
i SAVE THAT TOO 
, SAVE CURRENT LINE # 

> AND TEXT POINTER 


; HL=0 NOW 

, HERE IS THE STACK 


; EACH LEVEL IS 10 DEEP 
, GET THAT OLD "LOPVAR 


; 0 SAYS NO MORE IN IT 


SAME AS THIS ONE? 


; TRY TO MOVE SP 


; AND PURGE 10 WORDS 
.; IN THE STACK 
; JOB DONE, RESTORE DE 


.; GET ADDRESS OF VAR. 

.; NO VARIABLE, "WHAT?" 

YES, SAVE IT 
j SAVE TEXT POINTER 

GET VAR. IN "FOR 

, 0 SAYS NEVER HAD ONE 
; SO WE ASK: "WHAT?" 

; ELSE WE CHECK THEM 
; OK, THEY AGREE 
; NO, LET 'S SEE 
PURGE CURRENT LOOP 
.; AND POP ONE LEVEL 
j GO CHECK AGAIN 
j COME HERE WHEN AGREED 


.; COMPARE WITH LIMIT 
.; RESTORE TEXT POINTER 
, OUTSIDE LIMIT 
; WITHIN LIMIT, GO 
, BACK TO THE SAVED 
, 'CURRNT' AND TEXT 
j POINTER 


02B0 210000 
02B3 2E 

02B4 DF 
02B5 7C 
02B6 B5 
02B7 C25701 
02BA CD5605 
02BD D25001 
02C0 C3BA00 


02C3 2A0710 
02C6 F9 
02C7 El 
02C8 220110 
02CB D1 


02 CD D5 
02CE CD6C05 
02D1 C2DB02 
02D4 FF 
02D5 DA1503 
02D8 C3EB02 
02DB D5 
02DC FF 
02DD DAC604 
02E0 1A 
02E1 4F 
02E2 97 
02E3 12 
02E4 D1 
02E5 CD6005 

02E8 79 
02E9 IB 
02EA 12 
02EB D5 
02EC EB 
02ED 2A0110 
02F0 E5 
02F1 21CD02 
02F4 220110 
02F7 210000 
02FA 39 
02FB 220710 
02FE D5 
02FF 2E2A 
0301 CDFA04 
0204 119D12 
0307 DF 


030B D1 
030C EB 
020D 73 
030E 23 
020F 72 

0310 El 

0311 220110 
0314 D1 
0215 FI 
0316 CF 

0217 2C 

0218 03 

0219 C3CD02 
03 1C F7 

031D 1A 
021E FE0D 

0220 CA2C02 


< AGAIN IN SINGLE OR DOUBLE QUOTES?, THE STRING WILL BE 
PRINTED FOLLOWED BV A COLON. TBI THEN WAITS FOR INPUT EXPR. 
AND SET THE VARIABLE TO THE VALUE OF THE EXPR. 

IF THE INPUT EXPR. IS INVALID, TBI WILL PRINT "WHAT?", 

"HOW?" OR "SORRY" AND REPRINT THE PROMPT AND REDO THE INPUT. 
THE EXECUTION WILL NOT TERMINATE UNLESS YOU TYPE CONTROL-C. 
THIS IS HANDLED IN " INPERR ". 

"LET" IS FOLLOWED BY A LIST OF ITEMS SEPERATED BV COMMAS. 
EACH ITEM CONSISTS OF A VARIABLE, AN EQUAL SIGN, AND AN EXPR. 
TBI EVALUATES THE EXPR. AND SET THE VARIBLE TO THAT VALUE. 
TBI WILL ALSO HANDLE "LET" COMMAND WITHOUT THE WORD "LET". 
THIS IS DONE BV "DEFLT". 

!EM: LX I H, 0H REM *** 

DB 3EH 


RST 3 
MOV A, H 
ORA L 
JNZ RUNSML 
CALL FNDSKP 
JNC- RUNTSL 
JMP RSTART 


LHLD STKINP 
SPHL 
POP H 
SHLD CURRNT 
POP D 
POP D 


PUSH D 
CALL QTSTG 
JMP IP2 


MOV C, A 
SUB A 
STAX D 
POP D 
CALL PRTSTG 


A, 2AH 
GETLN 
D, BUFFER 


, NO, CONTINUE 
; YES, SKIP REST 'OF LINE 


> *** INPERR *** 

.; RESTORE OLD SP 
, AND OLD "CURRNT 

, AND OLD TEXT POINTER 
; REDO INPUT 

, **+ INPUT *** 

SAVE IN CASE OF ERROR 
j IS NEXT ITEM A STRING? 

; NO 

; YES. BUT FOLLOWED BY A 
.; VARIABLE? NO. 

; YES. INPUT VARIABLE 
; SAVE FOR "PRTSTG" 
j MUST BE VARIABLE NOW 
"WHAT?" IT IS NOT? 

.; GET READY FOR "PRTSTG" 


..PRINT STRING AS PROMPT 


.; SAVE TEXT POINTER 

, ALSO SAVE "CURRNT 

.; A NEGATIVE NUMBER 
.; AS A FLAG 
, SAVE SP TOO 


.; OLD HL 

.< PRINT THIS TOO 
, AND GET A LINE 
; POINTS TO BUFFER 
; EVALUATE INPUT 
CAN BE CALL ENDCHK " 


SAVE VALUE IN VAR. 


, AND OLD TEXT POINTER 
i PURGE JUNK IN STACK 
i IS NEXT CH. ", "? 


**■+ DEFLT 
EMPTY LINE IS OK 
; ELSE IT IS "LET 


CALL SETVAL 
RST 1 
DB 

DB LTl-f-1 
JMP LET 
RST 6 


LET ! + ; + '+ : 

i SET VALUE TO VAR. 


i ITEM BV ITEM 
i UNTIL FINISH 


"EXPR" EVALUATES ARITHMETICAL OR LOGICAL EXPRESSIONS 
<EXPR> : : =<EXPR2> 

CEXPR2XREL. OP. ><EXPR2> 

WHERE <REL. OP. > IS ONE OF THE OPERATORS IN TABS AND THE 
RESULT OF THESE OPERATIONS IS 1 IF TRUE AND 0 IF FALSE 
<EXPR2>: :■<+ OR -XEXPR3X+ OR — CEXPR2> X . 

WHERE O ARE OPTIONAL AND (. . . . > ARE OPTIONAL REPEATS 
CEXPR_: : *<EXPR4><< OR . 2 IEXPP4' •• > 

<EXPR4>: : =<VARIABLE> 
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CFUNCT I ON> 

«EXPR>> 

<EXPR> IS RECURSIVE SO THAT VARIABLE ' C“ ' CAN HAVE AN <EXPR> 
PS INDEX, FUNCTIONS CAN HAVE AN <EXPR> AS ARGUMENTS, AND 
<EXPR4> CAN BE AN <EXPR> IN PARANTHESE. 


02 2D 212107 
0220 C22B07 
0222 CD5C02 

0226 D8 

0227 6F 

0228 C9 

0229 CD5C02 
022C C8 
022D 6F 
022E C9 
022F CD5C02 
0242 C8 
0242 D8 

0244 6F 

0245 C9 

0246 CD5C02 
0249 6F 
024A C8 
024B D8 
024C 6C 
024D C9 
024E CD5C02 

0251 C0 

0252 6F 
0252 C9 
0254 C DSC 02 

0257 D0 

0258 6F 

0259 C9 
025A El 
G25B C9 
025C 79 
025D El 


EXPR1 : 
XP11 : 


XP12 : 


XP12 : 


XP14 : 


LX I 

JMP 

CALL 

RC 

MOV 

RET 


EXPR CALL EXPR2 
PUSH HL 

H, TAB8-1 , LOOKUP REL. OP. 

EXEC , GO DO I T 

XP18 ; REL. OP. •'>=" 

, NO, RETURN HL=0 
L, A ; VES, RETURN HL=1 


CALL XP1S , REL. OP. 


THIS IS AT LOC. 18 
SAVE <EXPR2> VALUE 


R2 , FALSE, RETURN HL=0 

MOV L, A TRUE, RETURN HL=1 

RET 


CALL XP18 

RZ 

RC 

MOV L, A 
RET 

CALL XP18 
MOV L, A 
RZ 


; REL. OP. 
i FALSE 

; ALSO FALSE, HL=© 

; TRUE, HL=1 

i REL. OP. »<«" 

SET HL=1 

, REL. TRUE, RETURN 


MOV L, H 
RET 

XP15 : CALL XP18 

RNZ 

MOV L, A 
RET 

XP16 : CALL XP18 

RNC 

MOV L, A 
RET 

XP17 : POP H 

RET 

XP18 : MOV A, C 

POP H 


; ELSE SET HL=© 

, REL. OP. " = *' 
i FALSE, RETRIJN HL=0 
ELSE SET HL=1 

.; REL. OP. 

.• FALSE, RETURN HL=0 
; ELSE SET HL=1 

; NOT REL. OP. 

; RETURN HL=<EXPR2> 

> SUBROUTINE FOR ALL. 
; REL. OP "S 


025E Cl 
025F E5 

0260 C5 

0261 4F 

0262 CD-7102 

0265 EB 

0266 E2 

0267 CD9804 
026A D1 
026B 210O00 
026E 2E01 
0270 C9 


POP B 
PUSH H 
PUSH B 
MOV C, A 
CALL EXPR 2 
XCHG 
XTHL 

CALL CKHLDE 
POP D 
LX I H, 0H 
MV I A, i 
RET 


.; REVERSE TOP OF STACK 


, GET 2ND <EXPR2> 

.: VALUE IN DE NOW 
, 1ST CEXPR2> IN HL. 

, COMPARE 1ST WITH 2ND 
, RESTORE TEXT POINTER 
, SET HL-0, A ~1 


G272 2D 
0272 06 
0274 210000 
0277 C29B02 
02 7 A CF 
027B 2B 
827C CO 
627D CDA501 
0380 CF 
0281. IB 
0282 15 
0282 E5 
0284 CDA502 

0287 EB 

0288 E2 

0289 7C 
02 8 A A A 
02 SB 7fi 
028C 19 
028D D1 
028E FA 800 2: 

0291 AC 

0292 F280O2 
0295 C29F00 
6298 CF 
0299 2D 

02 9 A 86 
029B E5 
029C CDA502 
029F CD8604 
02A2 C 2 8702 



RST 1 
DB 

DB XP21-4-1 
LX I H, OH 
JMP XP26 
RST 1 
DP + •" 

DP XP22-4 -1 
CALL EXPR 2 
RST 1 
DB + 

r-B :.R25-t-l 
PUSH H 
CALL EXPR2 
XCHG 
XTHL 

MOV A, H 
XPA D 
MOV A, D 
DAD D 
POP D 
JM XP22 
XRA H 
JP XP22 
JMP QHOW 
RST 1 
DB 


.; NEGATIVE 


SIGN ? 


VES, FAKE Li- 
TREAT LIKE SUBTRACT 
, POSITIVE SIGN? IGNORE 


, 1ST 

, ADD? 


lEXPPS: 


- VES. SAVE VALUE 

■ GET 2ND CEXPR2. 

■ 2ND I N DE 
.: 1ST I N HL 

; COMPARE SIGN 


; RESTORE TEXT POINTER 
; 1ST 2ND SIGN DIFFER 
, 1ST 2ND SIGN EQUAL 
, SO I S RESULT 
, ELSE WE HAVE OVERFLOW 
, SUBTRACT? 


PUSH H 
CALL EXPR2 
CALL CHGSGN 
JMP XP24 


VES, SAVE 1ST <EXPR2> 
; GET 2ND \PR2> 

, NEGATE 

.: AND ADD THEM 


02A5 CD0504 
02A8 CF 


02AA 2D 


EXPR 2: : CALL EXPR4 ; GET 1ST <EXPR4> 
XP21 : RST 1 MULTIPLY? 

DB * ■" 

DB XP24-t-l 


02 AC CDO504 
02AF O600 
02 Bl. CDS? OT 
02B4 E? 

02B5 CDS 204 
02: F"2 EB 
02B9 E2 
02BA 7C 
02 EB B7 
82 tC C AC 502 
02 BF 7 A 
02C0 B2 
02 Cl EB 
02 C 2 C2AO00 
02C5 7D 
02C6 210000 
02 C 9 B7 
02CA CAF702 
02CD .19 
0.2CE DAAO00 
02D1 3D 
02D2 C2CD02 
02D5 C2F703 
02D8 CF 
02D9 2F 
03 DA 46 
02DB E5 
02DC CD0504 
02DF 0609 
02: El CD8304 
02 E4 E2 
02E5 CD8204 
02 E 8 EB 
02E9 E3 
02EA EB 
02 EB 7A 
03 EC B2 
03ED CAA000 
02F0 C5 
02F1 CD 6604 
03F4 60 
02F5 69 
02F6 Cl 


PUSH H 
CALL FXPR4 
MV I B, OH 
CALL CHKSGN 
XTHL 

CAU. CHKSGN 
XC H'i 

::thl 

MOV A, H 
ORA A 
•JZ XP22 
MOV A.D 
ORA D 
XCHG 

JNZ AHOW 
MOV A, L. 

LX I H.0H 
ORA A 
JZ XP25 
DAD D 
JC AHOW 
DCF: A 

JNZ XP22 
JMP XP35 
RST 1 
DB 

DB XP42-*-l 
PUSH H 
CALL EXPR4 
MV I B, OH 
CALL CHKSGN 
XTHL 

CALL CHKSGN 
XCHG 
XTHL 
XCHG 

MOV A, D 
ORA E 
•JZ AHOW 
PUSH B 
CALL DIVIDE 
MOV H, B 
MOV L, C 
POP B 


■ VES, SAVE 1ST 
, AND GET 2ND <EXPR4> 
, CLEAR B FOR SIGN 
CHECK SIGN 
.: 1ST IN HL 
: CHECK SIGN OF 1ST 


, IS HL > 255 ? 

.; NO 

: VES, HOW ABOUT DE 

, PUT SMALLER I N HL 
, ALSO >, WILL OVERFLOW 
> THIS IS DUMB 
CLEAR RESULT 
ADD AND COUNT 


; OVERFLOW 


, FINISHED 
:• DIVIDE? 


• VES, SAVE 1ST <EXPR4> 
, AND GET 2ND ONE 

; CLEAR B FOR SIGN 

• CHECK SIGN OF 2ND 
, GET 1ST IN HL 

:• CHECK SIGN OF 1ST 


i DIVIDE BV 0? 

.; SAV "HOW?" 

, ELSE SAVE SIGN 
, USE SUBROUTINE 
, RESULT IN HL NOW 

.; GET SIGN BACK 


03F7 D1 
03F8 7C 
03F9 B7 
03FA FA9F00 
02FD 78 
03FE B7 

02FF FC8604 
0402 C3A802 

0405 210107 
0408 C23B07 
04 0B FF 
040C DA1404 
040F 7E 

0410 23 

0411 66 

0412 6F 
0412 C9 
0414 CD7700 
6417 78 

0418 B7 

0419 C0 
041A CF 
04 IB 28 
041C 05 
041D DF 
04 IE CF 
04 IF 29 

0420 01 

0421 C9 

0422 C3C604 

0425 CD1A04 

0428 7C 

0429 87 

04 2 A FA9F00 
04 2D B5 
042E CA9F00 

0421 D5 

0422 E5 
0422 2A1210 

0426 116907 
0429 E7 
042A DA4004 
042D 210000 

0440 5E 

0441 22 

0442 56 

0443 221310 

0446 El 

0447 EB 

0448 C5 

04 4 9 CD6604 
04 4C Cl 

04 4 D D1 
04 4 E 22 

64 4 F C9 


POP 

MOV 

ORA 


XP42 : 
XP43 : 


QHOW 
A, B 


CM CHGSGN 
JMP XP31 

LX I H, TAB4-1 
JMP EXEC 
RST 7 
JC XP41 
MOV A, M 
I NX H 
MOV H, M 
MOV L, A 
RET 

CALL TSTNUM 
MOV A, B 
ORA A 
RNZ 

RST 1 
DB •- < ' 

DB XP43-$— 1 

RST 3 
RST 1 


RET 

JMP QWHAT 

CALL PARN 
MOV A, H 
ORA A 
JM QHOW 
ORA L 
JZ QHOW 
PUSH D 
PUSH H 
LHLD RANPNT 
LX I D, LSTROM 


RST 

JC 


RA1 

H, START 
E, M 


MOV 
I NX H 
MOV D, M 
SHLD RANPNT 
POP H 
XCHG 
PUSH B 
CALL DIVIDE 
POP B 
POP D 
I NX H 


; AND TEXT POINTER 
.; HL MUST BE + 


.: ELSE IT IS OVERFLOW 


CHANGE SIGN IF NEEDED 
LOOK FOR MORE TERMS 

FIND FUNCTION IN TAB4 
AND GO DO IT 
NO, NOT A FUNCTION 
NOR A VARIABLE 
VARIABLE 


; VALUE IN HL 


j OR IS IT A NUMBER 
i # OF DIGIT 


; NO DIGIT, MUST I 


J *** RND < EXPR > 

, EXPR MUST BE + 


AND NON-ZERO 


SAVE BOTH 


GET MEMORV AS RANDOM 
NUMBER 


• WRAP AROUND IF LAST 


, RND C N > =MOD < M, N>+1 


0450 CD1A64 

0453 IE: 

0454 CD8304 

0457 12 

0458 C9 

0459 2A1510 
04 5C D5 

04 5D EB 
04 5E 216612 
0461 CD7C04 


046 


Di 


0465 C9 


CALL PARN 
DCX D 
CALL CHKSGN 
I NX D 
RET 

LHLD TXTUNF 
PUSH D 

XCHG 

LX I H, VARBGN 
CALL SUEDE 
POP D 
RET 


; CHECK SIGN 


GET THE NUMBER OF FREE 
BVTES BETWEEN TXTUNF 
AND VARBGN 


:+: :+: * if: * * * * *******%** 


, DIVIDE *** SUBDE *** CHKSGN CHGSGN *** .fc CKHLDE *** 

DIVIDE DIVIDES HL BV DE, RESULT IN BC, REMAINDER IN HL 
SUBDE-' SUBTRACTS DE FROM HL 

CHKSGN- CHECKS SIGN OF HL. IF +, NO CHANGE. IF -, CHANGE 
■ SIGN AND FLIP SIGN OF B. 

CHGSGN CHNGES SIGN OF HL AND B UNCOND I T I ONALLV. 


CKHLDE CHECKS SIGN OF HL AND DE. IF DIFFERENT, HL AND DE 
; ARE INTERCHANGED. IF SAME SIGN, NOT INTERCHANGED. EITHER 
■ CASE, HL DE ARE THEN COMPARED TO SET THE FLAGS. 


0466 E5 PUSH 

0467 6C MOV 

0468 260O MV I 

04 6 A CD 7104 CALL 

04 6D 41 MOV 

04 6E 7D MOV 

046F El POP 

0470 67 MOV 

0471 0EFF DV1 : MV I 

0473 6C DV2: I NR 

0474 CD7C04 CALL 

0477 D27304 JNC 

04 7 A 19 DAD 

047B C9 RET 

04 7C 7D SUBDE: MOV 

04 7D 93 SUB 

047E 6F MOV 

047F 7C MOV 

0480 9 A SBE: 

0481 67 MOV 

0482 C9 RET 


H .; *** DIVIDE *** 

L, H , DIVIDE H BV DE 

H, 0 

DV1 

B, C s SAVE RESULT IN B 

A, L ; < REMA I NDER+L > /DE 

H 

C, 0FFH ; RESULT IN C 

C ; DUMB ROUTINE 

SUBDE i DIVIDE BV SUBTRACT 

DV2 ; AND COUNT 

D 


A, L ; *** SUBDE *** 

E ; SUBTRACT DE FROM 

L, A .■ HL 

A, H 
D 

H, A 


CHKSGN : 

0482 7C MOV A, H 

0484 B7 ORA A 

0485 F0 RP 


; *** CHKSGN *** 

! CHECK SIGN OF HL 
; IF CHANGE SIGN 


0486 7C 

0487 F5 

0488 2F 

0489 67 
04 8 A 7D 
04 SB 2F 
04 8C 6F 
048D 22 
04 8E FI 
04 SF AC 

0490 F29F00 
0492 78 
0494 EES0 

0496 47 

0497 C9 


MOV A, H 
PUSH PSW 
CMA 

MOV H, A 
MOV A, L 
CMA 

MOV L, A 
I NX H 
POP PSW 
XRA H 
JP QHOW 
MOV A, B 
XRI 80H 
MOV B, A 
RET 


i *** CHGSGN +** 

:■ CHANGE SIGN OF HL 


* AND ALSO FLIP B 
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0499 HH 
04 9A F29E04 
04 9D EE: 

04 9E E7 
04 9F C9 


CKHLDE : 

MOV R, H 
XRfl D 
JP CKi 
XCHG 

CKI RST 4 
RET 


.; SAME SIGN? 

- VES, COMPARE 
i NO, XCH AND COMP 




.- *** SETVRL *** FIN *** ENDCHK *** & ERROR <4 FRIENDS) *** 

"SETVRL" EXPECTS R VARIABLE, FOLLOWED BV AN EQUAL SIGN AND 
, THEN* AN EXPR. IT EVALUATES THE EXPR. AND SET THE VARIABLE 
, TO THAT VALUE. 

"FIN" CHECKS THE END OF A COMMAND. IF IT ENDED WITH "; ", 

.; EXECUTION CONTINUES. IF IT ENDED WITH A CR, IT FINDS THE 
NEXT LINE AND CONTINUE FROM THERE. 

.- "ENDCHK" CHECKS IF A COMMAND IS ENDED WITH CR. THIS IS 
; REQUIRED IN CERTAIN COMMANDS. < GOTO, RETURN, AND STOP ETC. > 

"ERROR" PRINTS THE STRING POINTED BV DE < AND ENDS WITH CR). 

, IT THEN PRINTS THE LINE POINTED BV CURRNT WITH A "?" 

; INSERTED AT WHERE THE OLD TEXT POINTER < SHOULD BE ON TOP 

; OF THE STACK) POINTS TO. EXECUTION OF TB IS STOPPED 

, AND TBI IS RESTARTED. HOWEVER, IF ■CURRNT-' -> ZERO 
; -INDICATING A DIRECT COMMAND), THE DIRECT COMMAND IS NOT 

PRINTED. AND IF CURRNT- -> NEGATIVE # < INDICATING - INPUT' 

COMMAND, THE INPUT LINE IS NOT PRINTED AND EXECUTION IS 

, NOT TERMINATED BUT CONTINUED AT "' INPERR"'. 

; RELATED TO -'ERROR-' ARE THE FOLLOWING: 

QWHAT ' SAVES TEXT POINTER IN STACK AND GET MESSAGE "WHAT?" 

• AWHAT-' JUST GET MESSAGE "WHAT?" AND JUMP TO 'ERROR '. 

• OSnpRV ' AND ■' ASORRV "' DO SAME KIND OF THING. 

DHOW ' AND AHOW IN THE ZERO PAGE SECTION ALSO DO THIS 


04 FA D7 
04 FB 1.19D13 
04 FE CDS 4 06 
0501 CAFE04 
0504 FE7F 
0506 C A 23 05 

0509 D7 
O50A FE0A 
050C CAFE04 
O50F B7 

0510 CAFE 04 
0513 FE7D 
0515 CA2005 

0518 12 

0519 13 
051 A FE0D 
05 1C C8 
051 D 7B 
051E FEDD 

0520 C2FE04 

0523 7B 

0524 FE9D 
0526 C A 3005 
0529 IB 
052‘A 3E5C 
052C D7 
052D C3FE04 
8530 CD0E00 
0533 3E5E 
0535 C3FA04 


GETLN : 


GL1 : 


GL4 : 


RST 

LX I 

CALL 

JZ 

CPI 

JZ 

RST 

CPI 

■JZ 

ORA 


CPI 

STAX 

I NX 

CP I 

RZ 

MOV 

CPI 

JNZ 

MOV 

CPI 

•JZ 

OCX 

MV I 

RST 

•JMP 

CALL 

MV I 

JMP 


2 4 *#* GETLN *** 

D, BUFFER , PROMPT AND I NIT. 

CHKIO , CHECK KEYBOARD 

GLi .- NO INPUT, WAIT 

7FH .- DELETE LAST CHARACTER? 

GL3 , VES 

2 , INPUT, ECHO BACK 

0AH - IGNORE LF 

GLI 

A .- IGNORE NULL 

GLI 

7DH ) DELETE THE WHOLE LINE? 

GL4 .; VES 

D , ELSE, SAVE INPUT 

D , AND BUMP POINTER 

0DH .i WAS IT CR? 

.- VES, END OF LINE 
A, E .; ELSE, MORE FREE ROOM? 

BUFEND AND 0FFH 
GLI .-VES, GET NEXT INPUT 

A, E .: DELETE LAST CHARACTER 

BUFFER AND 0FFH 
GL4 j NO, REDO WHOLE LINE 

D ; VES, BACKUP POINTER 

A, 5CH , AND ECHO A BACK-SLASH 
2 

GLI .-GO GET NEXT INPUT 

CRLF , REDO ENTIRE LINE 

A, 05EH , CR, LF AND UP-ARROW 
GETLN 


0538 7C 

0539 B7 
053 A FA9F00 
053 D 111710 


MOV 

ORA 


A, H .- *** FNDLN *** 

A j CHECK SIGN OF HL 

QHOW .: IT CANNOT BE - 
D, TXTBGN , INIT. TEXT POINTER 


0540 E5 


FNDLP : 

FL1 : PUSH H 


.: *** FNDLNP *** 
; SAVE LINE # 


04A0 FF 
04 A1 DAC604 
04 A4 E5 
04 A5 CF 
04 A 6 3D 
94 A7 08 
04 AS DF 
04 A9 44 
04 A A 40 
04 AB El 
04 AC 71 
04 AD 23 
04 AE 70 
64 AF C9 


SETVAL ' 

RST 7 
JC QWHAT 
RUSH H 
RST 1 
DB 

DB SVl-t-1 
RST 3 
MOV B, H 
MOV C, L 
POP H 
MOV M, C 
I NX H 
MOV M, B 
RET 

SVi JMP QWHAT 


SETVAL *** 

.; "WHAT?" NO VARIABLE 
, SAVE ADDRESS OF VAR. 
. PASS "=" SIGN 


; EVALUATE EXPR. 

, VALUE IN BC NOW 

- GET ADDRESS 
SAVE VALUE 


■NO "=" SIGN 


04B2 CF 


FIN 


04 B5 04 

04 B6 FI 

04B7 C 3 5701 

04 BA CF FI1 

04 BB 0D 

04 BC 04 

04 BD Fi 

04 BE CZ 470:1 

04 Cl C9 F 1 2 


RST 1 
DB 3BH 
DB FI 1-4-1 

POP PSW 
JMP RUNS ML 
RST 1 
DB CR 
DB FI 2-1-1 

POP PSW 
JMP RIJNNXL 
RET 


- ", PURGE RET ADDR. 

-CONTINUE SAME LINE 
.! NOT ", ", IS IT CR? 


.- VES, PURGE RET ADDR. 

;RIJN NEXT LINE 

.- ELSE RETURN TO CALLER 


04 C 5 


EF 

FEOD 


ENDCHK: : 


RST 

CPI 

RZ 


.: •*•+ + ENDCHK +*H8 
.-END WITH CR? 

-OK, ELSE SAV: "WHAT-"' 


04 C6 D5 
04 C7 1.1AE00 
04 C A 97 
04 CB CD6005 
0-ICE D1 
04 CF 1A 
04D0 F5 
04D1 97 
04 D2 12 
04 DZ 2AO110 
04 D6 E5 
04 D7 7E 
04 D8 23 
04 D9 B6 
04 DA 01 


QWHAT: PUSH D 
AWHAT: LX I 0, WHAT 
ERROR . SUB A 

CALL PRTSTG 
POP D 
LDAX D 
PUSH PSW 
SUB A 
STAX D 
LHLD CURRNT 
PUSH H 
MOV A, M 
I NX H 
ORA M 
POP D 


i +•+•+ QWHAT *** 

, *** AWHAT 
.- ERROR *** 

-PRINT WHAT?', HOW 
-OR -' SORRV 
.- SAVE THE CHARACTER 
.- AT WHERE OLD DE -> 

.- AND PUT A 0 THERE 

-GET CURRENT LINE # 

- CHECK THE VALUE 


04 DB CABA08 
04 DE 7E 
04 DF B7 


■JZ RSTART .- IF ZERO, JUST RERSTART 

MOV A, M .- IF NEGATIVE, 

ORA A 


04 EO FAC 3 02 
04, E I CDD205 
04 E 6 IB 
04 E7 FI 
04 E8 12 
04 E 9 3E3F 
04 EE: D7 
04 EC 97 
04 ED CD6005 
0 4 F 0 C 3 B A 0 0 

04 F 3 D5 

04 Ft 11B400 
04 F 7 C3CA04 


JM INPERR 
CALL F'RTLN 
DCX D 
POP PSW 
STAX D 
MV I A, 3FH 
RST 2 
SUB A 
CALL PRTSTG 
JMP RSTART 

Q SORRV : 

PUSH D 

ASORRV : 

LX I D, SORRV 
JMP ERROR 


, REDO INPUT 
.- ELSE PRINT THE LINE 
.- UR TO WHERE THE 0 IS 
, RESTORE THE CHARACTER 

.-PRINT A "?" 

- AND THE REST OF THE 


; *** QSORRV *** 
.- + ASORRV * 


; * * * * + * * :+• * **** % s*t * * * * * * * * * * :+: * * * * * * * * * ♦ * + it::** * :+: 

.- GETLN *** FNDLN <'* FRIENDS) *** 

•'GETLN'' READS A INPUT LINE INTO "BUFFER". IT FIRST PROMPT 
, THE CHARACTER IN A < GIVEN BV THE CALLER), THEN IT FILLS THE 
.; THE BUFFER AND ECHOS. IT IGNORES LF"S AND NULLS, BUT STILL 
.- ECHOS THEM BACK. RUB-OUT IS USED TO CAUSE IT TO DELETE 

- THE LAST CHARATER '..IF THERE IS ONE), AND ALT-MOD IS USED TO 

.- CAUSE IT TO DELETE THE WHOLE LINE AND START IT ALL OVER. 

.- CR SIGNALS THE END OF A LINE, AND CAUSE 'GETLN- TO RETURN. 

FNDLN- FINDS A LINE WITH A GIVEN LINE # < IN HL) IN THE 
.- TEXT SAVE AREA. DE IS USED AS THE TEXT POINTER. IF THE 
.- LINE IS FOUND, DE WILL POINT TO THE BEGINNING OF THAT LINE 

.- a. E. , THE LOW BYTE OF THE LINE #), AND FLAGS ARE NC & Z. 

.- IF THAT LINE IS NOT THERE AND A LINE WITH A HIGHER LINE # 

.- IS FOUND, DE POINTS TO THERE AND FLAGS ARE NC & NZ IF 

.- WE REACHED THE END OF TEXT SAVE ARE AND CANNOT FIND THE 
, LINE, FLAGS ARE C f>, NZ. 

FNDLN WILL INITIALIZE DE TO THE BEGINNING OF THE TEXT SAVE 

- AREA to start the search, some other entries of this 

• ROUTINE WILL NOT INITIALIZE DE AND DO THE SEARCH 

-FNDLNP" WILL START WITH DE AND SEARCH FOR THE LINE #. 

' FNDNXT •' WILL BUMP DE BV 2, FIND A CR AND THEN START SEARCH. 
"FNDSKP USE DE TO FIND A CR, AND THEN STRART SEARCH. 


0541 


0545 

0546 
054 7 
054 8 
0549 
054 A 
054 B 
054 f : 


2A151.0 

2B 


El 

D8 





LHLD 

DCX 

RST 

POP 

RC 

LDAX 

SUB 

MOV 

I NX 

LDAX 

SBB 

JC 

DCX 

ORA 

RET 


TXTUNF 

H 

4 

H 


L. 

B, A 
D 
D 
H 

FL2 

D 

B 


.-CHECK IF WE PASSED END 


-GET LINE # BACK 
.- C, NZ PASSED END 
.- WE DID NOT, GET BVTE 1 
-IS THIS THE LINE? 

- COMPARE LOW ORDER 

.- GET BVTE 2 
-COMPARE HIGH ORDER 
i NO, NOT THERE VET 
-ELSE WE EITHER FOUND 
.- IT, OR IT IS NOT THERE 
.- NC, Z : FOUND - NC, NZ : NO 


FNDNXT : 

0554 1.3 I NX D 

0555 13 FL2 : I NX D 


FNDNXT +** 

FIND NEXT LINE 

JUST PASSED BVTE 1 & 2 


0556 l.A 

0557 FEOD 
0559 C 2 550 5 
05 5 C 12 
A55D CZ -1005 


LDAX D 
CP I CR 
JNZ FL2 
I NX D 
JMP FL1 


.- •+••+-•♦ FNDSKP * + ♦- 
-TRY TO FIND CR 
-KEEP LOOKING 
-FOUND CR, SKIP OVER 
-CHECK IF END OF TEXT 


+■ :+• *: + ■+: ♦ *: ♦ * +: + + + + :+: * •+: *• :+: * :+: # * * « * * ♦ * .■+: « « * ♦ * * « * * * * 
■*■+■+ PRTSTG +-+-+■ QTSTG *** PRTNUM (k F’RTLN *** 


PRTSTG PRINTS A STRING POINTED BV DE IT STOPS PRINTING 
AND RETURNS TO CALLER WHEN EITHER A CR IS PRINTED OR WHEN 
THE NEXT BVTE IS THE SAME AS WHAT WAS IN A < GIVEN BV THE 
CALLER). OLD A IS STORED IN B, OLD B IS LOST. 


QTSTG LOOKS FOR A BACK-ARROW, SINGLE QUOTE, OR DOUBLE 
QUOTE IF NONE OF THESE, RETURN TO CALLER. IF BACK-ARROW, 
OUTPUT A CR WITHOUT A LF IF SINGLE OR DOUBLE QUOTE, PRINT 
THE STRING IN THE QUOTE AND DEMANDS A MATCHING UNQUOTE. 

AFTER THE PRINTING THE NEXT 3 BYTES OF THE CALLER IS SKIPPED 
OVER < USUALLY A JUMP INSTRUCTION) 


PRTNUM PRINTS THE NUMBER IN HL. LEADING BLANKS ARE ADDED 
IF NEEDED TO PAD THE NUMBER OF SPACES TO THE NUMBER IN C. 
HOWEVER, IF THE NUMBER OF DIGITS IS LARGER THAN THE # IN 
C, ALL DIGITS ARE PRINTED ANVWAV. NEGATIVE SIGN IS ALSO 
PRINTED AND COUNTED IN, POSITIVE SIGN IS NOT. 

F’RTLN PRINTS A SAVED TEXT LINE WITH LINE # AND ALL. 


0560 47 

0561 1A 

0562 13 
056 Z BS 

0564 C8 

0565 D7 

0566 FEOD 
0568 C261Q5 
056B C9 


PRTSTG : 

MOV B, A 
PS1 : LDAX D 

I NX D 
CMP B 
RZ 

RST 2 
CPI CR 
JNZ F’Sl 
RET 


*** PRTSTG *** 
GET A CHARACTER 
BUMP POINTER 
SAME AS OLD A? 
VES, RETURN 
ELSE PRINT IT 
WAS IT A CR? 

NO, NEXT 
VES, RETURN 


056C CF 
05 6 D 22 
056E OF 
056 F ZE22 
0571 CD6005 
0574 FEOD 

0576 El 

0577 CA4701 
057A 23 
057B 22 
057C 22 
057D E9 
057E CF 
057F 27 

0580 05 

0581 2E27 

0582 C 2 71 05 
0586 CF 
8587 5F 

0588 08 

0589 2E8D 
058B D7 
05 SC D7 
058D El 
058E C37A05 
0591. C9 


QTSTG : RST 1 


QTSTG 


QT4 : 


QT5 


DB QT2-4-1 
MV I A, 22H 
CALL PRTSTG 
CPI CR 
POP H 
JZ RUNNXL 
I NX H 
I NX H 
I NX H 
PCHL 
RST 1 
DB 27H 
DB QT4-t-l 
MV I A, 27H 
JMP QT1 
RST 1 
DB 5FH 
DE: QT5-*-l 

MV I A, 08 DH 
RST 2 
RST 2 
POP H 
JMP QT2 
RET 


-IT IS A . 

.-PRINT UNTIL ANOTHER 
.- WAS LAST ONE A CR? 

.- RETURN ADDRESS 

.-WAS CR, RUN NEXT LINE 

.-SKIP 3 BYTES ON RETURN 


- RETURN 

.-IS IT A ' ? 


.- VES, DO SAME 
.- AS IN " 

-IS IT BACK-ARROW? 


VES, CR WITHOUT LF 
DO IT TWICE TO GIVE 
TTV ENOUGH TIME 
RETURN ADDRESS 


.- NONE OF ABOVE 


0592 0600 
0594 CDS 2 0-1 
0597 F 2 9005 
05 9 A 06 2D 
05 9 C 0D 
059D D5 
059E 110A0O 


PRTNUM 


MV I 

CALL 

JP 


B, 0 

CHKSGN 

F’Nl 


OCR C 
F’Nl : PUSH D 

LX I D, 0AH 


- PRTNUM *** 
.-CHECK SIGN 
.- NO SIGN 


.- TAKES SPACE 
.- SAVE 
, DECIMAL 
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05ft 4 CD if. 6 0-1 
05A7 78 
05ft 8 B1 
0509 CAB405 
05ft C E2 
05ft D 2D 
05ftE E5 
05ftF 60 
05B0 69 
05B1 C2A405 
05B4 Cl 
05B5 0D 
65B6 79 
05B7 B7 
05 B 8 FOC105 
05BB 2E20 
05BD D7 
05BE C2B505 
05C1 78 
05C2 B7 
©5C2 C4100© 
05C6 5D 
05C7 7B 
05C8 FE0ft 
05CFI D1 
05CB C8 
05CC C620 
05CE D7 
05CF C2C705 

05D2 1ft 
05D2 6F 
05D-1 12 
05D5 1ft 
05D6 67 
05D7 12 
05D8 OE04 
05Dfi CD9205 
05DD 2E20 
05DF D7 
05E0 97 
05E1 CD6005 
05E4 C9 


05E5 E7 
05E6 C8 
05E7 1ft 
05E8 02 
05E9 12 
05Eft 02 
05 EB C2E505 


05EE 78 
05EF 92 
05F0 C2F605 
05F2 79 
05F4 92 
05F5 CS 
05F6 IB 
05F7 2E: 

05F8 1ft 
05F9 77 
05Fft C 2 EE 05 

05FD Cl 
05 FE El 
05FF 220910 
0602 7C 
0602 B5 
0604 CO1706 

0607 El 

0608 220610 
060B El. 

060C 220D10 
060F El 
0610 220F10 
0612 El 
0614 221110 

0617 C5 

0618 C9 

0619 2 IDE 12: 
06 1C CD 86 04 

06 IF Cl 

0621 D2F204 
0624 200910 

0627 7C 

0628 B5 

0629 CO2F06 
06 2 C 201110 
062F E5 

0620 2A0F1O 

0622 E5 
0624 2O0D10 

0627 E5 

0628 2 ft OBI 0 
062 B E5 

06 2 C 200910 
06 2 F E5 

0640 C5 

0641 C 9 


PN5: 


PN6 : 


PUSH D ; SAVE ftS ft FLOG 

DCF: C ; C=SPfiCES 

PUSH B , SAVE SIGN & SPACE 


MOV ft, B 
ORA C 
JZ PN2 
XTHL 
DCF L 
PUSH H 
MOV H, B 
MOV L, C 
JMP PN2 
POP B 
DCF C 
MOV ft, C 
OFft ft 
JM F'N5 
MV I ft, 20H 
RST 2 
JMP PN4 
MOV ft, B 
OFft ft 
CNZ 10H 
MOV E, L 
MOV A, E 
CPI 0AH 
POP D 
FZ 

ADI 20H 
RST 2 
JMP PN6 


. , DEV IDE HL BV 10 
, RESULT 0? 

.i VES, WE GOT ALL 
• NO, SAVE REMAINDER 
, AND COUNT SPACE 
HL IS OLD BC > 

: MOVE RESULT TO BC 

; AND DIVIDE BV 10 
■WE GOT ALL DIGITS IN 
, THE STACK 
.■ LOOK AT SPACE COUNT 

; NO LEADING BLANKS 
, LEADING BLANKS 

i MORE? 

; PRINT SIGN 


LAST REMAINDER IN E 
i CHECK DIGIT IN E 
:• 10 IS FLAG FOR NO MORE 

, IF SO, RETURN 
.; ELSE COVERT TO ASCII 
AND PRINT THE DIGIT 
GO BACK FOR MORE 


F'RTLN : 


LDftX D 
MOV L, A 
I NX D 
LDftX D 
MOV H, A 
I NX D 
MV I C, 4H 
CALL PRTNUM 
MV I ft, 20H 
RST 2 
SUB ft 
CALL PRTSTG 
RET 


*** F'RTLN *** 

.; LOW ORDER LINE # 

; HIGH ORDER 

} PRINT 4 DIGIT LINE # 
FOLLOWED BV ft BLANK 
AND THEN THE TEXT 


.! +*♦ MVUP +*+ MVDOWN **■* F'OPA **+ & PUSHA *** 

; •MVUP" MOVES A BLOCK UP FROM WHERE DE-> TO WHERE BC-> UNTIL 
; DE * HL 

i MVDOWN" MOVES ft BLOCK DOWN FROM WHERE DE-> TO WHERE HL-> 
UNTIL DE a BC 

'" POP A " RESTORES THE "FOR" LOOP VARIABLE SAVE AREA FROM THE 
; STACK 

"PUSHA" STACKS THE "FOR" LOOP VARIABLE SAVE AREA INTO THE 
; STACK 


CHKIO" CHECKS THE INPUT. IF NO INPUT, IT WILL RETURN TO 
; THE CALLER WITH THE Z FLAG SET. IF THERE IS INPUT, Z FLAG 
, IS CLEARED AND THE INPUT BVTE IS IN A. HOWERER, IF THE 
, INPUT IS ft CONTROL— G, THE "OCSW" SWITCH IS COMPLIMENTED, AND 
, Z FLAG IS RETURNED IF ft CONTROL-C IS READ, "CHKIO WILL 
.: RESTART TBI AND DO NOT RETURN TO THE CALLER. 


0642 220O10 
0645 2ECF 
0647 D2FB . 
0649 2E27 
064 B D2FB 
064D 1619 


OUT C 


IN IT : STA OCSW 

MV I ft, 0CFH’ 
OUT 0FBH 
MV I ft, 27H 
OUT 0FBH 
MV I D, 19H 


PUSH AF 
LD ft, OCSW 
I OR ft 


THIS IS AT LOC. 10 
CHECK SOFTWARE SWITCH 


Ci64F 

0652 


0652 

0656 

0657 
065A 
065D 

0662 

0666 

0669 
066C 
066F 

0670 

0671 

0672 
0675 

0678 

0679 
06 7B 
067D 
067E 

0680 
0681 
0682 
0684 
0686 


0689 
068A 
068C 
068E 

0690 
0692 

0696 

0697 
069A 
069D 


06A0 

06A2 

06A7 

06A8 

06AC 

06AD 


PftTLOP : 


CD0E00 

15 

C24F06 

97 

11A206 

CD6005 

210000 

221210 

211710 

221510 

C2BA00 

C27106 0C2 : 

FI 

C9 

DBFB 0C2 : 
E601 
CA7106 
FI 

D2FA 

FE0D 

C0 

2E0A 

D7 

2E0D 

C9 

DBFB CHKIO: 
00 
E602 
C8 

DBFA 

E67F 

FE0F 

C29D06 

2A0010 

2F 

220010 

C28406 

FE02 CU: 

C0 

C2BA00 

54494E59 MSG1 : 
20 

42415249 

42 

0D 


CALL CRLF 
. DCR D 
•JNZ PftTLOP 
SUB ft 
LX I D, MSG1 
CALL PRTSTG 
LX I H, START 
SHLD RftNPNT 
LX I H, TXTBGN 
SHLD TXTUNF 
JMP RSTART 
JNZ 0C2 
POP PSW 
RET 

IN 0FBH 
AN I 1H 
JZ 0C2 
POP PSW 
OUT 0FAH 
CPI CR 
RNZ 

MV I ft, LF 
RST 2 
MV I ft, CR 
RET 

IN 0FBH 
NOP 

AN I 2'H 
RZ 

IN 0FAH 
AN I 7FH 
CPI 0FH 
JNZ CI1 
LDA OCSW 
CMA 

STA OCSW 
JMP CHKIO 
CPI 2H 
RNZ 

JMP RSTART 
DB "TINV •" 

DB "BASIC-" 

DB CR 


j IT IS ON 
; IT IS OFF 

RESTORE AF AND RETURN 
; COME HERE TO DO OUTPUT 
; STATUS BIT 
> NOT READV, WAIT 
READV, GET OLD A BACK 
, AND SEND I T OUT 
; WAS IT CR? 

, NO, FINISHED 
SEND LF 

.• THIS IS RECURSIVE 
; GET CR BACK IN ft 

,i *** CHKIO *** 

; STATUS BIT FLIPPED? 

; MASK STATUS BIT 
i NOT READV, RETURN "Z" 

> READV, READ DATA 
i MASK BIT 7 OFF 
i IS IT CONTROL-O? 

; NO, MORE CHECKING 
i CONTROL-O FLIPS OCSW 
; ON TO OFF, OFF TO ON 

> GET ANOTHER INPUT 
i IS IT CONTROL-C? 

; NO, RETURN "NZ" 
i VES, RESTART TBI 


MVUP : RST 4 


LDftX 
STAX 
I NX 
I NX 
JMP 


D 

B 

D 


MVUP 


; *** MVUP *+* 
i DE = HL, RETURN 
GET ONE BVTE 
MOVE IT 

, INCREASE BOTH POINTERS 
; UNTIL DONE 


*+ * %**% +++: * * ** * * * * ** ** ♦ ♦ * * * * * ** * ** * if * * * * % * * * * * If * * * * * * * * * * 

*** TABLES *** DIRECT *** & EXEC *** 

THIS SECTION OF THE CODE TESTS A STRING AGAINST A TABLE. 

WHEN A MATCH IS FOUND, CONTROL IS TRANSFERED TO THE SECTION 


MVDOWN : 

MOV ft, B 
SUB D 
JNZ MD1 
MOV ft, C 
SUB E 
RZ 

MDJ : DCX D 

DCX H 
LDftX D 
MOV M, ft 
JMP MVDOWN 


.; *** MVDOWN *** 

> TEST IF DE = BC 
, NO, GO MOVE 
MftVBE, OTHER BVTE? 

J VES, RETURN 
; ELSE MOVE ft BVTE 
; BUT FIRST DECREASE 
.; BOTH POINTERS AND 
THEN DO IT 
, LOOP BACK 


F'OPA : POP B 

POP H 
SHLD LOP VAR 
MOV ft, H 
ORA L 
JZ F'F’l ' 
POP H 
SHLD LOP INC 
POP H 
SHLD LOPLMT 
POP H 
SHLD LOF'LN 
POP H 
SHLD LOF'PT 
F'Pl PUSH B 
RET 


.; BC = RETURN ADDR. 

} RESTORE LOF'VAR, BUT 
, =0 MEANS NO MORE 


, VEP, GO RETURN 
, NOP, RESTORE OTHERS 


.: BC = RETURN ADDR. 


i OF CODE ACCORDING TO THE TABLE. 

J AT "EXEC", DE SHOULD POINT TO THE STRING AND HL SHOULD PO: 
J TO THE TABLE-1. AT "DIRECT", DE SHOULD POINT TO THE STRIf 
; HL WILL BE SET UP TO POINT TO TAB1-1, WHICH IS THE TABLE ( 
.; ALL DIRECT AND STATEMENT COMMANDS. 

J ft IN THE STRING WILL TERMINATE THE TEST AND THE PART If 

.i MATCH WILL BE CONSIDERED AS ft MATCH. E. G. , "P. ", "PR. ", 
"PR I. ", "F'RIN. ", OR PRINT" WILL ALL MATCH PRINT? 

.; THE TABLE CONSISTS OF ANV NUMBER OF ITEMS. EACH ITEM 
.; IS ft STRING OF CHARACTERS WITH BIT 7 SET TO 0 AND 
.; A JUMP ADDRESS STORED HI -LOW WITH BIT 7 OF THE HIGH 
j BVTE SET TO 1. 

; END OF TABLE IS AN ITEM WITH ft JUMP ADDRESS ONLV. IF THE 

.; STRING DOES NOT MATCH ANV OF THE OTHER ITEMS, IT WILL 
, MATCH THIS NULL ITEM AS DEFAULT 


TAB'l : 

06AE 4C495254 

06B2 81 + 

06B2 6F + 

06B4 52554E 

06B7 81 + 

06B8 41 + 


, DIRECT COMMANDS 

DB "LIST 
DWfl LIST 

DB <00'16FH SHR 8> +128 

DB 0016FH AND OFFH 

DB "RUN 
DWfl RUN 

DB <001 4 1H SHR 8> +128 

DB 00141H AND 0FFH 


PUSHA: LX I H, STKLMT :■ +*+ PUSHA +++ 
CALL CHGSGN 


PU1 


POP B 
DAD SP 
JNC QSORRV 
LHLD LOF'VAR 
MOV ft, H 
ORA L 

jz Pin 

LHLD LOF'PT 
PUSH H 
LHLD LOPLN 
PUSH H 
LHLD LOF'LMT 
PUSH H 
LHLD LOP INC 
PUSH H 
LHLD LOPVAR 
PUSH H 
PUSH B 
RET 


; BC=RETURN ADDRESS 
i IS STACK NEAR THE TOP? 
i VES, SORRV FOR THAT. 
i ELSE SAVE LOOP VAR. S 
BUT IF LOPVAR IS 0 
THAT WILL BE ALL 

.: ELSE, MORE TO SAVE 


; BC = RETURN ADDR. 


06B9 4E4557 

06BC 81 + 

06BD 22 + 

TAB2 : 

06BE 4E455854 

06C2 82 + 

06C2 57 + 

06C4 4C4554 

06C7 82 + 

06CS 22 + 

06C9 4946 

+ 

06CB 82 + 

06CC B4 + 


DB "NEW" 

DWA NEW 

DB < 00122H SHR 8> +128 

DB 00122H AND OFFH 

> DIRECT /STATEMENT 

DB "NEXT 
DWA NEXT 

DB <00257H SHR 8> +128 

DB 00257H AND OFFH 

DB "LET" 

DWA LET 

DB < 00222H SHR 8> +128 

DB 00222H AND OFFH 

DB "IF" 

DWA IFF 

DB <002B4H SHR 8> +128 

DB 0O2B4H AND 0FFH 




+++ OUTC +++ & CHKIO *** 


06CD 474F544F 

06D1 81 
06D2 60 


DB "GOTO" 

DWA GOTO 

DB <00160H SHR 8> +128 

DB 0O160H AND 0FFH 


; THESE ARE THE ONLV I/O ROUTINES IN TBI. 

OUTC IS CONTROLLED BV A SOFTWARE SWITCH "OCSW". IF OCSW*0 
"OUTC"' WILL JUST RETURN TO THE CALLER. IF OCSW IS NOT 0, 

, IT WILL OUTPUT THE BVTE IN A. IF THAT IS A CR, A LF IS ALSO 
; SEND OUT. ONLV THE FLAGS MAV BE CHANGED AT RETURN, ALL REG. 
j ARE RESTORED. 


06D2 474F5255 DB "GOSUB" 

06D7 42 


06D8 81 
06D9 BF 


DWA GOSUB 

DB C001BFH SHR 8> +128 

DB 001BFH AND 0FFH 
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06DA 52455' 
06DE 524 E 


DWA RETURN 

DE: < 001DFH SHR S> +128 

DE: 001DFH AND 0FFH 


I NX H .BUMP TO NEXT TAB. ITEM 

POP D .• RESTORE STRING POINTER 

JMP EX0 , TEST AGAINST NEXT ITEM 

MV I A, 07FH , PARTIAL MATCH, FIND 
I NX H ; JUMP ADDR. , WHICH IS 

CMP M ; FLAGGED BY BIT 7 


C002B0H SHR 8> +128 
002B0H AND 0FFH 


■LOAD HL WITH THE JUMP 
, ADDRESS FROM THE TABLE 


06EC 494E5055 
06FG 54 


<001F8H SHR 8> +128 
001F8H AND 0FFH 


DWA INPUT 

DE: C002CDH SHR 8> +: 

DB 002CDH AND 0FFH 


DWA PRINT 

DB < 00187H SHR 8> +128 

DB 00187H AND 0FFH 

DB STOP' 

DWA STOP 

DB C0012BH SHR 8> +128 

DB 0012BH AND 0FFH 

DWA DEFLT 

DB < 0021DH SHR 8> +128 

DB 0021DH AND 0FFH 

FUNCTIONS 

DB RND 
DWA RND 

DB <00425H SHR 8!> +128 

DB 00425H AND 0FFH 


OCSW : DS 1 . 

CURRNT : DS 2 
STKGOS : DS 2 
VARNXT : DS 2 
STKINP: DS 2 
LOF'VAR : DS 2 
LOP INC: DS 2 
LOPLMT : DS 2 
LOPLN : DS 2 

LOPPT : DS 2 

RANPNT : DS 2 
TXTUNF : DS 2 
TXTBGN : DS 2 

ORG 1266H 
TXTEND : DS 0 
VARBGN : DS 55 
BUFFER : DS 64 
BUFEND : DS 1 
STKLMT : DS 1 

ORG 1400H 
STACK : DS 0 


i HERE ON MUST BE RAM 
SWITCH FOR OUTPUT 
:• POINTS TO CURRENT LINE 
i SAVES SP IN 'GOSUB 
; TEMP STORAGE 
i SAVES SP IN INPUT 
J FOR' LOOP SAVE AREA 
INCREMENT 
LIMIT 

LINE NUMBER 
, TEXT POINTER 
i RANDOM NUMBER POINTER 
-MJNFILLED TEXT AREA 
.■ TEXT SAVE AREA BEGINS 

; TEXT SAVE AREA ENDS 
i VARIABLE 0 i 0 > 

INPUT BUFFER 
} BUFFER ENDS 
TOP LIMIT FOR STACK 

> STACK STARTS HERE 


DB ABS 
DWA ABS 

DB C00450H SHR 8> +128 

DB 00450H AND 0FFH 


DWA SIZE 

DB < 00459H SHR S> +128 

DB 00459H AND 0FFH 

DWA XP40 

DB < 0040BH SHR S:> +128 

DB 0040BH AND 0FFH 


DB C00208H SHR 8> +128 

DB 00208H AND 0FFH 

DWA QfclHAT 

DB C004C6H SHR 8> +128 

DB 004C6H AND 0FFH 

; "STEP" IN "FOR" 

DB 'STEP' 

DWA FR2 

DB < 00212H SHR 8> +128 

DB 00212H AND 0FFH 


C00216H SHR 8> +128 
00216H AND 0FFH 


j RELATION OPERATORS 


DWA XP11 

DB C00222H SHR 8> +128 

DB 00222H AND 0FFH 

DB 

DWA XP12 

DB C00229H SHR 8> +128 

DB 00229H AND 0FFH 


C0022FH SHR 8> +128 
0022FH AND 0FFH 


ABS 0450 
BUFEN 12DD 
CHKSG 0482 
CR 000D 
DIREC 0728 


GL1 04FE 
GOTO 0160 
INFER 02 C 2 
IP2 02EB 
LF 000A 
LOPLN 100F 
LSTRO 0769 
MVDOW 05EE 
NX© 025E 


PN1 059D 
PN5 05C1 
PRO 019B 
PR6 01B2 
PRTNU 0592 
PUSHA 0619 
QT2 057A 
QTSTG 056C 
REM 02B0 
RUN 0141 
SETVA 04A0 
SI 1 O0BD 
STACK 1400 
STKLM 12DE 
TAB1 06AE 
TAB6 071A 
TNI 007C 
TXTEN 1266 
WHAT 00AE 
XP14 0346 
XP18 035C 
XP24 0387 
XP32 03C5 
XP40 040B 


AHOW 00A0 
BUFFE 139D 
CI1 069D 
CRLF 000E 
DIVID 0466 
ENDCH 04C2 
EX2 0750 
EXEC 072B 
EXPR4 0405 
FL1 0540 
FNDNX 0554 
FR2 0212 


INPUT 02CD 
IP4 0215 
LIST 016F 
LOPPT 1011 
LT1 022C 
MVUP 05E5 
NX1 0298 


PRTST 0560 
QHOW 009F 
QT2 057E 
QWHAT 04C6 
RETUR 01DF 
RUNNX 0147 
SIZE 0459 
SI 2 00CD 
START 0000 
STOP 012B 
TAB2 06BE 
TABS 0722 
TSTNU 0077 
TXTUN 1015 
XP11 0322 


XP25 0298 
XP22 03CD 


ASORR 04F4 
CHGSG 0486 
CK1 049E 
CURRN 1001 
DV1 0471 
ERROR 04CA 
EX3 075A 
EXPR1 032D 
FI1 04BA 
FL2 0555 
FNDSK 0556 
FR3 0216 
FR8 0252 


LOP IN 100B 
LOPVA 1009 
MD1 05F6 
NEW 0122 
NX2 02AC 
0C2 066C 
PARN 041A 


PR2 0192 
PRINT 0187 
PS1 0561 
QSORR 04F2 
QT4 0586 
RA1 0440 
RND 0425 
RUNSM 0157 
SORRY 00B4 
ST3 00D6 
STKGO 1003 
SUBDE 047C 
TAB4 0702 
TCI 0068 
TV1 0058 
VARBG 1366 
XP12 0329 
XP16 0354 
XP22 027D 
XP26 039B 
XP34 03D8 
XP42 0421 . 


AWHAT 04C7 
CHKIO 0684 
CKHLD 0498 
DEFLT 021D 
DV2 0472 
EX0 073B 
EX4 075C 
EXPR2 0371 
FI2 04C1 
FNDLN 0538 
FOR 01F8 
FR4 0219 
GETLN 04FA 
GOSUB 01BF 
INIT 0642 
IP2 02DB 
LET 0323 
LOPLM 100D 


PATLO 064F 
PN4 05B5 
PP1 0617 
PR3 01A9 
PRTLN 05D2 
PU1 063F 
QT1 0571 
QT5 0591 
RANPN 1013 
RSTAR 00BA 
RUNTS 0150 
SSI 0028 
ST4 010B 
STKIN 1007 
SV1 04B0 
TAB5 0714 
TC2 0073 
TXTBG 1017 
VARNX 1005 
XP13 023F 
XP17 025A 
XP23 0380 
XP31 03A8 
XP25 03F7 
XP42 0422 


0024EH SHR 8> +128 
0024EH AND 0FFH 


DWA XP14 

DB < 00246H SHR 8> +128 

DB 00246H AND 0FFH 


DWA XP16 

DE: C00254H SHR 8> +128 

DB 00254H AND 0FFH 


( 0025AH SHR S> +128 
0025AH AND 0FFH 


LX I H, TAB1-1 DIRECT ■ 


RST 5 
PUSH D 
LDAX D 
I NX D 
CPI 2EH 


JZ EX1 
MV I A, 07FH 


I NX H 
CMP M 
JNC EX2 


; *** EXEC *** 

* IGNORE LEADING BLANKS 
; SAVE POINTER 
, IF FOUND •' IN STRING 
; BEFORE ANY MISMATCH 
i WE DECLARE A MATCH 

; HL-> TABLE 

i IF match, test next 

ELSE, SEE IF BIT 7 
OF TABLE IS SET, WHICH 
; IS THE JUMP ADDR. <HI> 

; C : YES, MATCHED 
NC : NO, FIND JUMP ADDR. 
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